snap-core 0.1.1 → 0.1.2
raw patch · 3 files changed
+5/−3 lines, 3 files
Files
- snap-core.cabal +1/−1
- src/Snap/Util/GZip.hs +3/−1
- test/suite/Snap/Util/GZip/Tests.hs +1/−1
snap-core.cabal view
@@ -1,5 +1,5 @@ name: snap-core-version: 0.1.1+version: 0.1.2 synopsis: Snap: A Haskell Web Framework (Core) description:
src/Snap/Util/GZip.hs view
@@ -298,7 +298,9 @@ float return () - coding = string "*" <|> takeWhile isAlpha_ascii+ coding = string "*" <|> takeWhile isCodingChar++ isCodingChar c = isAlpha_ascii c || c == '-' float = takeWhile isDigit >> option () (char '.' >> takeWhile isDigit >> pure ())
test/suite/Snap/Util/GZip/Tests.hs view
@@ -52,7 +52,7 @@ ------------------------------------------------------------------------------ gzipHdrs, badHdrs, compressHdrs, emptyHdrs :: Headers emptyHdrs = Map.empty-gzipHdrs = setHeader "Accept-Encoding" "froz,gzip" emptyHdrs+gzipHdrs = setHeader "Accept-Encoding" "froz,gzip, x-gzip" emptyHdrs badHdrs = setHeader "Accept-Encoding" "*&%^&^$%&%&*^\023" emptyHdrs compressHdrs = setHeader "Accept-Encoding" "compress" emptyHdrs