Haskellの練習でLTSVパースするヤツ

ltsv_parser.hs

import qualified Data.Map as M
import Data.List.Split

type Field = (String,String)
type Fields = M.Map String String

main = do cs <- getContents
          mapM_ showTree' $ parse cs

showTree' :: Fields -> IO()
showTree' = putStr . M.showTree

parse :: String -> [Fields]
parse = map parseLTSV . lines

parseLTSV :: String -> Fields
parseLTSV = M.fromList . map splitField . splitOn "\t"

splitField :: String-> Field
splitField = dropEqual . break (==':')
  where dropEqual (a, ':':b) = (a,b)
        dropEqual (a,b)      = (a,b)