replaced sequence . map with the more concise mapM

Ignore-this: 8536085023e5e0e379497ccae19e5820 darcs-hash:20100425035755-b3b23-18f4157f9e6abdca1c3d19deaddda339025c79a3.gz
keithshep · Apr 25, 2010 · fcaf436 · fcaf436
1 parent ff742be
commit fcaf436
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/csvzip.hs b/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