Network.Shpider と Codec.Text.IConv を使って EUC-JP のサイトのソースを UTF-8 で出力

Haskell の練習。
ByteString は Haskell Platform に入ってたんだっけ…。

-- shpidertest.hs

import Network.Shpider
import Codec.Text.IConv
import Data.ByteString.Lazy.Char8 as B

main = runShpider $ do
  (_, page) <- download "http://www.sampou.org/haskell/a-a-monads/html/hardway.html"
  let u_source = convert "EUC-JP" "UTF-8" $ B.pack $ source page
  lift $ B.putStrLn u_source

$ cabal install shpider iconv
$ runhaskell shpidertest.hs