Permalink
Browse files

Fix non-exhaustive lambda

  • Loading branch information...
1 parent a7fdc05 commit e0df8fcee1ae21d468dd071a5a64ecf947cb2220 @ozataman committed Mar 28, 2012
Showing with 6 additions and 2 deletions.
  1. +1 −1 csv-enumerator.cabal
  2. +5 −1 src/Data/CSV/Enumerator.hs
View
@@ -1,5 +1,5 @@
Name: csv-enumerator
-Version: 0.10.1.1
+Version: 0.10.1.2
Synopsis: A flexible, fast, enumerator-based CSV parser library for Haskell.
Homepage: http://github.com/ozataman/csv-enumerator
License: BSD3
@@ -211,7 +211,11 @@ instance CSVeable MapRow where
loop (headers, a)
-- Fill headers if not yet filled
- procRow [] !acc' = rowParser csvs >>= (\(Just hs) -> loop (hs, acc'))
+ procRow [] !acc' = do
+ r <- rowParser csvs
+ case r of
+ Nothing -> loop ([], acc')
+ Just hs -> loop (hs, acc')
-- Process starting w/ the second row
procRow !headers !acc' = rowParser csvs >>=

0 comments on commit e0df8fc

Please sign in to comment.