mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

better cases

Browse source
This commit is contained in:
Joey Hess 2013-08-22 23:44:13 -04:00
parent f8ebce9396
commit 824241b6fb
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/AddUrl.hs
View file

@ -58,9 +58,9 @@ start relaxed optfile pathdepth s = go $ fromMaybe bad $ parseURI s
parseURI $ escapeURIString isUnescapedInURI s' parseURI $ escapeURIString isUnescapedInURI s'
badquvi = error $ "quvi does not know how to download url " ++ s' badquvi = error $ "quvi does not know how to download url " ++ s'
choosefile = flip fromMaybe optfile choosefile = flip fromMaybe optfile
go url go url = case downloader of
| downloader == QuviDownloader = usequvi QuviDownloader -> usequvi
| otherwise = ifM (liftIO $ Quvi.supported s') DefaultDownloader -> ifM (liftIO $ Quvi.supported s')
( usequvi ( usequvi
, do , do
pathmax <- liftIO $ fileNameLengthLimit "." pathmax <- liftIO $ fileNameLengthLimit "."

1
Logs/Web.hs
View file

@ -106,7 +106,6 @@ knownUrls = do
geturls (Just logsha) = getLog . L.unpack <$> catObject logsha geturls (Just logsha) = getLog . L.unpack <$> catObject logsha
data Downloader = DefaultDownloader | QuviDownloader data Downloader = DefaultDownloader | QuviDownloader
deriving (Eq)
{- Determines the downloader for an URL. {- Determines the downloader for an URL.
- -