Permalink
Browse files

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

  • Loading branch information...
gregorycollins committed May 28, 2010
1 parent 9ad0354 commit 99be8d70460b9ecd823fc27051a60ba105abd2cf
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Snap/Util/GZip.hs
View
@@ -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 ())

0 comments on commit 99be8d7

Please sign in to comment.