Permalink
Browse files

Try the constructors with the most fields first.

  • Loading branch information...
1 parent d35f529 commit e07b20c37eaf4696f824651621f9009f56ba202e @sjoerdvisscher sjoerdvisscher committed Aug 26, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/Csv/Conversion.hs
View
@@ -735,7 +735,7 @@ class GFromNamedRecord f where
instance GFromRecordSum f NamedRecord => GFromNamedRecord (M1 i n f) where
gparseNamedRecord v =
- foldr (\f p -> M1 <$> f v <|> p) empty (IM.elems gparseRecordSum)
+ foldr (\f p -> p <|> M1 <$> f v) empty (IM.elems gparseRecordSum)
class GFromRecordSum f r where

0 comments on commit e07b20c

Please sign in to comment.