git.iko.soy/typeable/wai
on master help sign in
removing warnings.
f1ed0c7Kazu Yamamoto
warp/Network/Wai/Handler/Warp/Conduit.hs+2−2
compare with master
unifiedsplit
@@ -153,13 +153,13 @@ readCSource (CSource src ref) = do
153 return S.empty
153 return S.empty
154 else do
154 else do
155 (x, y) <-
155 (x, y) <-
156− case S.breakByte 10 bs of
156+ case S.break (== 10) bs of
157 (x, y)
157 (x, y)
158 | S.null y -> do
158 | S.null y -> do
159 bs2 <- readSource' src
159 bs2 <- readSource' src
160 return $ if S.null bs2
160 return $ if S.null bs2
161 then (x, y)
161 then (x, y)
162− else S.breakByte 10 $ bs `S.append` bs2
162+ else S.break (== 10) $ bs `S.append` bs2
163 | otherwise -> return (x, y)
163 | otherwise -> return (x, y)
164 let w =
164 let w =
165 S.foldl' (\i c -> i * 16 + fromIntegral (hexToWord c)) 0
165 S.foldl' (\i c -> i * 16 + fromIntegral (hexToWord c)) 0
warp/Network/Wai/Handler/Warp/RequestHeader.hs+1−1
@@ -127,7 +127,7 @@ parseRequestLine requestLine@(PS fptr off len) = withForeignPtr fptr $ \ptr -> d
127
127
128parseHeader :: ByteString -> H.Header
128parseHeader :: ByteString -> H.Header
129parseHeader s =
129parseHeader s =
130− let (k, rest) = S.breakByte 58 s -- ':'
130+ let (k, rest) = S.break (== 58) s -- ':'
131 rest' = S.dropWhile (\c -> c == 32 || c == 9) $ S.drop 1 rest
131 rest' = S.dropWhile (\c -> c == 32 || c == 9) $ S.drop 1 rest
132 in (CI.mk k, rest')
132 in (CI.mk k, rest')
133
133