Haskell Network.HTTP不正確地下載圖像

Question

我試圖使用Network.HTTP模塊下載圖像並且收效甚微。

import Network.HTTP 

main = do 
    jpg <- get "http://www.irregularwebcomic.net/comics/irreg2557.jpg" 
    writeFile "irreg2557.jpg" jpg where 
     get url = simpleHTTP (getRequest url) >>= getResponseBody 

輸出文件顯示在當前目錄中，但是沒有根據鉻或短萃取濃縮咖啡顯示量。 Ristretto報告「解釋JPEG圖像文件時出錯（不是JPEG文件：以0c3 0xbf開頭）」。

Answer 1

writeFile :: FilePath -> String -> IO() 

String。那就是你的問題，就在那裏。 String適用於unicode文本。試圖在其中存儲二進制數據將導致腐敗。在這種情況下，不清楚simpleHTTP或writeFile是否正在進行腐敗，但它最終並不重要。您使用的是錯誤的類型，並且遇到不構成有效Unicode編碼的字節時，某些內容會破壞數據。

至於解決這個問題，HTTP的新版本是在它們的返回類型中是多態的，並且可以處理在ByteString中返回原始字節。你只需要改變你寫文件的字節的方式，這樣它就不會推斷你想要一個String。

import qualified Data.ByteString as B 
import Network.HTTP 
import Network.URI (parseURI) 

main = do 
    jpg <- get "http://www.irregularwebcomic.net/comics/irreg2557.jpg" 
    B.writeFile "irreg2557.jpg" jpg 
    where 
    get url = let uri = case parseURI url of 
          Nothing -> error $ "Invalid URI: " ++ url 
          Just u -> u in 
       simpleHTTP (defaultGETRequest_ uri) >>= getResponseBody 

獲得多態請求的構造有點笨拙。如果issue #1得到解決，那麼使用getRequest url就足夠了。