Change from deprecated breakByte to break.

yesodweb · Jul 29, 2015 · be9983e · be9983e
1 parent 15a3c51
commit be9983e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/wai-extra/Network/Wai/Middleware/Gzip.hs b/wai-extra/Network/Wai/Middleware/Gzip.hs
@@ -42,6 +42,7 @@ import Data.Function (fix)
 import Control.Exception (throwIO)
 import qualified System.IO as IO
 import Data.ByteString.Lazy.Internal (defaultChunkSize)
+import Data.Word8 (_semicolon)
 
 data GzipSettings = GzipSettings
     { gzipFiles :: GzipFiles
@@ -58,7 +59,7 @@ defaultCheckMime :: S.ByteString -> Bool
 defaultCheckMime bs =
     S8.isPrefixOf "text/" bs || bs' `Set.member` toCompress
   where
-    bs' = fst $ S.breakByte 59 bs -- semicolon
+    bs' = fst $ S.break (== _semicolon) bs
     toCompress = Set.fromList
         [ "application/json"
         , "application/javascript"

diff --git a/wai-extra/Network/Wai/Middleware/HttpAuth.hs b/wai-extra/Network/Wai/Middleware/HttpAuth.hs
@@ -109,7 +109,7 @@ extractBasicAuth bs =
   where
     extract encoded =
         let raw = decodeLenient encoded
-            (username, password') = S.breakByte _colon raw
+            (username, password') = S.break (== _colon) raw
         in ((username,) . snd) <$> S.uncons password'
 
 -- | Extract bearer authentication data from __Authorization__ header