f1ed0c7 · typeable/wai

git.iko.soy/typeable/wai

removing warnings.

commitf1ed0c7d54806cea65a65d2d1af0f17630a3ab8a authorKazu Yamamoto <kazu@iij.ad.jp> dateWed 10 Jun 2015, 14:57 (11 years ago) parentea57645

2 files changed+3−3

unifiedsplit

warp/Network/Wai/Handler/Warp/Conduit.hs+2−2

@@ -153,13 +153,13 @@ readCSource (CSource src ref) = do

153153 return S.empty

154154 else do

155155 (x, y) <-

156− case S.breakByte 10 bs of

156+ case S.break (== 10) bs of

157157 (x, y)

158158 | S.null y -> do

159159 bs2 <- readSource' src

160160 return $ if S.null bs2

161161 then (x, y)

162− else S.breakByte 10 $ bs `S.append` bs2

162+ else S.break (== 10) $ bs `S.append` bs2

163163 | otherwise -> return (x, y)

164164 let w =

165165 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

127127

128128parseHeader :: ByteString -> H.Header

129129parseHeader s =

130− let (k, rest) = S.breakByte 58 s -- ':'

130+ let (k, rest) = S.break (== 58) s -- ':'

131131 rest' = S.dropWhile (\c -> c == 32 || c == 9) $ S.drop 1 rest

132132 in (CI.mk k, rest')

133133