warp: adjusted 'Request.hs' to build with 'bytestring < 0.11' and rem…

…oved 'BangPatterns'
yesodweb · Jan 14, 2024 · 7f38acf · 7f38acf
1 parent 479b9a2
commit 7f38acf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/warp/Network/Wai/Handler/Warp/Request.hs b/warp/Network/Wai/Handler/Warp/Request.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE OverloadedStrings #-}
@@ -17,8 +16,9 @@ module Network.Wai.Handler.Warp.Request (
 
 import qualified Control.Concurrent as Conc (yield)
 import Data.Array ((!))
-import qualified Data.ByteString as S
+import qualified Data.ByteString as S hiding (toStrict)
 import qualified Data.ByteString.Builder as B
+import qualified Data.ByteString.Lazy as S (toStrict)
 import qualified Data.ByteString.Unsafe as SU
 import qualified Data.CaseInsensitive as CI
 import qualified Data.IORef as I
@@ -237,8 +237,8 @@ type BSEndoList = [ByteString] -> [ByteString]
 
 data THStatus
     = THStatus
-        !Int -- running total byte count (excluding current header chunk)
-        !Int -- current header chunk byte count
+        Int -- running total byte count (excluding current header chunk)
+        Int -- current header chunk byte count
         BSEndoList -- previously parsed lines
         BSEndo -- bytestrings to be prepended