Inline field

tibbe · Nov 16, 2012 · df5b3ab · df5b3ab
1 parent 1855df7
commit df5b3ab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Data/Csv/Parser.hs b/Data/Csv/Parser.hs
@@ -131,6 +131,7 @@ field !delim = do
     case mb of
         Just b | b == doubleQuote -> escapedField
         _                         -> unescapedField delim
+{-# INLINE field #-}
 
 escapedField :: AL.Parser S.ByteString
 escapedField = do