diff options
| -rw-r--r-- | Command/AddUrl.hs | 6 | ||||
| -rw-r--r-- | Logs/Web.hs | 1 |
2 files changed, 3 insertions, 4 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 "." diff --git a/Logs/Web.hs b/Logs/Web.hs index 44d511267..47ab61943 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -106,7 +106,6 @@ knownUrls = do geturls (Just logsha) = getLog . L.unpack <$> catObject logsha data Downloader = DefaultDownloader | QuviDownloader - deriving (Eq) {- Determines the downloader for an URL. - |