diff options
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 "." |