@@ -10,7 +10,6 @@ import qualified Data.ByteString as S
1010import qualified Data.ByteString.Char8 as B
1111import qualified Data.ByteString.Unsafe as SU
1212import qualified Data.CaseInsensitive as CI
13−import Data.Char (toLower)
1413import Data.Conduit
1514import qualified Data.IORef as I
1615import Data.Maybe (fromMaybe)
@@ -68,7 +67,7 @@ parseRequest' conn port (firstLine:otherLines) remoteHost' src = do
6867 Nothing -> 0
6968 Just bs -> readInt bs
7069 let serverName' = takeUntil 58 host -- ':'
71− let chunked = maybe False ((== "chunked") . B.map toLower)
70+ let chunked = maybe False ((== "chunked") . CI.foldCase)
7271 $ lookup "transfer-encoding" heads
7372 (rbody, getSource) <- liftIO $
7473 if chunked