Загрузка CSV-файла из Интернета в Haskell

Question

Пожалуйста, у меня есть следующий код в папке H1.hs

Module H1 Where 
    Import System.IO 
    Import Network.HTTP 
    Import Network.URI 
    Import Data.Maybe 

    downloadCSV :: String -> IO (Bool, String) 
    downloadCSV mDa = do 
let mu = "http://xxx.xxx.xx/aaa.s.csv?s=" mu 
let mh = simpleHTTP $ getRequest mu 
mr <- (mh >>= getResponseBody) 
rc <- fmap rpc <$> mh 
case rc of 
left err -> return (False, "xxxx" show err) 
right(2,_,_) -> return (True, mr) 

Мой вопрос, я хочу, чтобы создать еще один файл H2.hs и вызвать функцию в H1.hs (downloadCSV) из моего основного метода, чтобы загрузить файл csv. например:

main do = ........ 

Пожалуйста помогите.

Answer 1

Файл H2.hs будет выглядеть следующим образом:

module H2 where 
import H1 (downloadCSV) 

main = do ... 
      (bool,str) <- downloadCSV "some-url" 
      ...