add dropFromEnd
This commit is contained in:
parent
acb4bcf2db
commit
850d19d038
5 changed files with 10 additions and 6 deletions
|
@ -278,8 +278,7 @@ getUrlInfo url uo = case parseURIRelaxed url of
|
|||
contentDispositionFilename :: String -> Maybe FilePath
|
||||
contentDispositionFilename s
|
||||
| "attachment; filename=\"" `isPrefixOf` s && "\"" `isSuffixOf` s =
|
||||
Just $ reverse $ drop 1 $ reverse $
|
||||
drop 1 $ dropWhile (/= '"') s
|
||||
Just $ dropFromEnd 1 $ drop 1 $ dropWhile (/= '"') s
|
||||
| otherwise = Nothing
|
||||
|
||||
headRequest :: Request -> Request
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue