module Hbro.Download where
import Hbro.Types
import Hbro.Util
import Network.URI
import System.FilePath
aria, wget, axel :: PortableFilePath -> URI -> String -> IO ()
aria path' uri filename = resolve path' >>= \destination -> spawn "aria2c" [show uri, "-d", destination, "-o", filename]
wget path' uri filename = resolve path' >>= \destination -> spawn "wget" [show uri, "-O", destination </> filename]
axel path' uri filename = resolve path' >>= \destination -> spawn "axel" [show uri, "-o", destination </> filename]