Changedto a callback function instead of a simple "write string"

gentoomen · Jan 8, 2012 · 94cc6a7 · 94cc6a7
1 parent 3ed0c36
commit 94cc6a7
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Haskell/Scraper.hs b/Haskell/Scraper.hs
@@ -24,12 +24,17 @@ import Network.Curl.Easy
 import Text.Regex.TDFA
 import System.Environment ( getArgs )
 
+writeToFile handle string = do
+    hPutStr handle string
+
 getImage s = do
+    curl <- initialize
     putStr $ "Getting image: " ++ show s
     outFile <- openFile (filePath s) WriteMode
+    setopt curl (CurlWriteFunction $ easyWriter (writeToFile outFile) )
+    setopt curl (CurlURL s)
     hSetBinaryMode outFile True
-    (_, imageStr) <- curlGetString s []
-    hPutStr outFile imageStr
+    perform curl
     hClose outFile
     putStr " ... Done!\n"
   where