@@ -146,7 +146,7 @@ parseByteRanges bs1 = do
146 case B.readInteger bs4 of
146 case B.readInteger bs4 of
147 Just (j, bs5) | j >= i -> Just (HH.ByteRangeFromTo i j, bs5)
147 Just (j, bs5) | j >= i -> Just (HH.ByteRangeFromTo i j, bs5)
148 _ -> Just (HH.ByteRangeFrom i, bs4)
148 _ -> Just (HH.ByteRangeFrom i, bs4)
149− ranges front bs3
149+ ranges front bs3
150 | S.null bs3 = Just (front [])
150 | S.null bs3 = Just (front [])
151 | otherwise = do
151 | otherwise = do
152 bs4 <- stripPrefix "," bs3
152 bs4 <- stripPrefix "," bs3