いまどきのHaskellのTCPクライアント

{-# LANGUAGE OverloadedStrings #-}                                        
import Data.ByteString.Char8 as B                                         
import Data.Conduit                                                       
import Data.Conduit.Binary as C                                           
import Data.Conduit.List as C                                             
import Data.Conduit.Network                                               

main :: IO ()                                                             
main = runTCPClient (ClientSettings 80 "tanakh.jp") $ \source sink -> do  
  sourceList ["GET / HTTP/1.0\r\nHost: tanakh.jp\r\n\r\n"] $$ sink        
  source $= C.lines $$ C.mapM_ $ \line ->                                 
    B.putStrLn line                                                       

すごくいい感じなんだけど、やっぱちょろっと書くにはimportが多いなあ。