blob: 270bd656d63c2aa5ca86d8f29af7a46dd9e5ca9f (
plain)
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
|