2014-12-06 3 views
-2
에 웹에서 파일 다운로드

난 제발 폴더에 아래의 코드 H1.hsCSV는 하스켈

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 = ........ 

답변

1

파일 H2.hs는 다음과 같이 표시됩니다

module H2 where 
import H1 (downloadCSV) 

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