Skip to content
Browse files

* apostrophe in idents too

  • Loading branch information...
1 parent c8f18cf commit b65498403d984c21999fa9a806e2c55426d442fc @audreyt audreyt committed Mar 9, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Pugs/src/Pugs/Lexer.hs
View
2 Pugs/src/Pugs/Lexer.hs
@@ -51,7 +51,7 @@ wordAny = satisfy isWordAny <?> "word character"
isWordAny :: Char -> Bool
isWordAlpha :: Char -> Bool
isWordNoDash :: Char -> Bool
-isWordAny x = (isAlphaNum x || x == '_' || x == '-')
+isWordAny x = (isAlphaNum x || x == '_' || x == '-' || x == '\'')
isWordAlpha x = (isAlpha x || x == '_')
isWordNoDash x = (isAlphaNum x || x == '_')

0 comments on commit b654984

Please sign in to comment.
Something went wrong with that request. Please try again.