Skip to content
Browse files

replaced sequence . map with the more concise mapM

Ignore-this: 8536085023e5e0e379497ccae19e5820

darcs-hash:20100425035755-b3b23-18f4157f9e6abdca1c3d19deaddda339025c79a3.gz
  • Loading branch information...
1 parent ff742be commit fcaf436e98429aaecaeaedc36166733accba1c82 @keithshep committed Apr 24, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 csvzip.hs
View
2 csvzip.hs
@@ -29,7 +29,7 @@ main = do
case fileNames of
-- parse all CSV files giving us a list of tables, then zip and print them
(_ : _ : _) -> do
- tables <- sequence $ map getAndParseTable fileNames
+ tables <- mapM getAndParseTable fileNames
putStr $ formatTable csvFormat (zipAllColumns tables)
_ -> printUsage

0 comments on commit fcaf436

Please sign in to comment.
Something went wrong with that request. Please try again.