Haskell Network.HTTP неправильно загружает образ

Я пытаюсь загрузить изображения с помощью модуля 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

Выходной файл появляется в текущем каталоге, но не отображается под хромом или ристретто. Ристретто сообщает: «Ошибка интерпретации файла изображения JPEG (Не файл JPEG :начинается с 0c3 0xbf )».