This commit is contained in:
Joey Hess 2011-12-20 18:14:20 -04:00
parent 815d1318d7
commit 8e2f74f7ab
2 changed files with 5 additions and 0 deletions

View file

@ -7,6 +7,7 @@
module Utility.Url (
exists,
canDownload,
download,
get
) where
@ -32,6 +33,9 @@ exists url =
(2,_,_) -> return True
_ -> return False
canDownload :: IO Bool
canDownload = (||) <$> inPath "wget" <*> inPath "curl"
{- Used to download large files, such as the contents of keys.
-
- Uses wget or curl program for its progress bar. (Wget has a better one,