update
This commit is contained in:
parent
815d1318d7
commit
8e2f74f7ab
2 changed files with 5 additions and 0 deletions
|
@ -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,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue