~alcinnz/hurl

hurl/Main.hs -rw-r--r-- 478 bytes
41ee21d2 — Adrian Cochrane Broaden base dependency bounds, fix readStrict regression. 10 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
module Main where

import Network.URI.Fetch
-- Input parsing
import System.Environment (getArgs)
import Network.URI (parseURI, nullURI)
import Data.Maybe (catMaybes)
-- Where to save files
import System.Directory (getCurrentDirectory)

main :: IO ()
main = do
    urls <- getArgs
    let urls' = catMaybes $ map parseURI urls
    session <- newSession
    dir <- getCurrentDirectory

    res <- fetchURLs session ["*/*"] urls' $ saveDownload nullURI dir
    putStrLn $ show res