#!/usr/bin/env stack
-- stack --resolver lts-6.30 --install-ghc runghc --package csv-conduit
import Data.ByteString
import Data.Conduit
import Data.Conduit.Binary
import Data.CSV.Conduit
import System.IO

main = transformCSV
  defCSVSettings
  (sourceHandle stdin)
  (awaitForever yield :: Conduit (Row ByteString) IO (Row ByteString))
  (sinkHandle stdout)