diff --git a/warp/Network/Wai/Handler/Warp/Internal.hs b/warp/Network/Wai/Handler/Warp/Internal.hs
index 1fc6983b7..e686272f0 100644
--- a/warp/Network/Wai/Handler/Warp/Internal.hs
+++ b/warp/Network/Wai/Handler/Warp/Internal.hs
@@ -75,6 +75,7 @@ module Network.Wai.Handler.Warp.Internal (
 
     -- * Request and response
     Source,
+    FirstRequest (..),
     recvRequest,
     sendResponse,
 
diff --git a/warp/bench/Parser.hs b/warp/bench/Parser.hs
index 0c5ec19fb..ea58d3fe3 100644
--- a/warp/bench/Parser.hs
+++ b/warp/bench/Parser.hs
@@ -19,7 +19,7 @@ import qualified Network.HTTP.Types as H
 import UnliftIO.Exception (impureThrow, throwIO)
 import Prelude hiding (lines)
 
-import Network.Wai.Handler.Warp.Request (headerLines)
+import Network.Wai.Handler.Warp.Request (FirstRequest (..), headerLines)
 import Network.Wai.Handler.Warp.Types
 
 #if MIN_VERSION_gauge(0, 2, 0)
@@ -61,7 +61,7 @@ main = do
             ]
         ]
   where
-    testIt req = producer req >>= headerLines 800 False
+    testIt req = producer req >>= headerLines 800 FirstRequest
 
 ----------------------------------------------------------------