From df5b3ab641e8d26a83bc4c286e07f1e2743cb873 Mon Sep 17 00:00:00 2001
From: Johan Tibell <johan.tibell@gmail.com>
Date: Fri, 16 Nov 2012 10:51:27 -0800
Subject: [PATCH] Inline field

---
 Data/Csv/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Data/Csv/Parser.hs b/Data/Csv/Parser.hs
index fdecc6b..3ab1a56 100644
--- 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