parse.hs

{-# LANGUAGE OverloadedStrings #-}

import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as TI
import System.IO

main = do
  file <- TI.readFile "input.map"
  output <- openFile "output.map" WriteMode
  let fileColumns = map (T.split (== '\t')) $ T.lines file
      extractAndSave =  mapM_ ((TI.hPutStrLn output).getHla) $ filter testConditions fileColumns
      testConditions (x1:x2:x3:x4:x5:_) = and [cond1, cond2, cond3]
            where cond1 = not $ T.isInfixOf "HWI" x1
                  cond2 = '0' /= (T.head x4)
                  cond3 = T.isPrefixOf "HLA" x5
      getHla (_:_:_:x3:x4:_) = T.unwords.(is:) $ take i $ T.split (== ',') x4
            where i = read $ T.unpack is
                  is = head $ T.split (== ':') x3
  extractAndSave