hurl-2.1.0.0: Main.hs

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)
import Network.MIME.Info (mimeInfo)

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

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

queryMIMEs [] = []
queryMIMEs (mime:mimes)
    | ':' `notElem` mime && '/' `elem` mime = mimeInfo mime : queryMIMEs mimes
    | otherwise = queryMIMEs mimes