CSV filtering

filt.hs

import Text.CSV

loadCSV = 
   do
      eitherRecs <- parseCSVFromFile "sample.csv"
      let records = case eitherRecs
                    of Left e -> error . show $ e
                       Right recs -> recs
      return records

main =
   do
      recs <- loadCSV
      putStrLn . printCSV . filter lessThan7 $ recs

lessThan7 xs =
   length xs == 4 && field1' < 7
   where
      field1 :: String
      field1 = xs !! 1
      field1' = read field1 :: Int