diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-22 23:44:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-22 23:44:13 -0400 |
| commit | 6aa0e6a21b611f74f14a7cb19d172ef60776163b (patch) | |
| tree | 53738525af10e4a57c97ee26a95734e6b3b62b74 /Command/AddUrl.hs | |
| parent | 082eb2d96068d9c602a9de1cda503fa645f4abd0 (diff) | |
better cases
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 04aa46d29..0309a6a59 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -58,9 +58,9 @@ start relaxed optfile pathdepth s = go $ fromMaybe bad $ parseURI s parseURI $ escapeURIString isUnescapedInURI s' badquvi = error $ "quvi does not know how to download url " ++ s' choosefile = flip fromMaybe optfile - go url - | downloader == QuviDownloader = usequvi - | otherwise = ifM (liftIO $ Quvi.supported s') + go url = case downloader of + QuviDownloader -> usequvi + DefaultDownloader -> ifM (liftIO $ Quvi.supported s') ( usequvi , do pathmax <- liftIO $ fileNameLengthLimit "." |