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）从我的main方法，以便可以下载csv文件。例如：

main do = ........

请协助。

Answer 1

文件H2.hs将如下所示：

module H2 where
import H1 (downloadCSV)

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

在Haskell中从Web下载CSV文件

1 个答案: