Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add more characters to the list we will accept in accept-encodings

  • Loading branch information...
commit 99be8d70460b9ecd823fc27051a60ba105abd2cf 1 parent 9ad0354
@gregorycollins gregorycollins authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/Snap/Util/GZip.hs
View
2  src/Snap/Util/GZip.hs
@@ -300,7 +300,7 @@ acceptParser = do
coding = string "*" <|> takeWhile isCodingChar
- isCodingChar ch = isAlpha_ascii ch || ch == '-'
+ isCodingChar ch = isDigit ch || isAlpha_ascii ch || ch == '-' || ch == '_'
float = takeWhile isDigit >>
option () (char '.' >> takeWhile isDigit >> pure ())
Please sign in to comment.
Something went wrong with that request. Please try again.