parseTransactions :: Scheme -> String -> Either ParseError [Transaction]
parseTransactions scheme input = do
  doc <- parseCSV (schemeHeaderP scheme) input
  return $ (schemeMap scheme) `map` (csvContents doc)
parseTransactions :: Scheme -> String -> Either ParseError [Transaction]
parseTransactions scheme input = do
  doc <- parseCSV (schemeHeaderP scheme) input
  return $ (schemeMap scheme) `map` (csvContents doc)
parseTransactions scheme input = do
  doc <- parseCSV (schemeHeaderP scheme) input
  return $ (schemeMap scheme) `map` (csvContents doc)