Permalink
Browse files

* apostrophes in modules names are just fine.

  • Loading branch information...
1 parent b654984 commit bc264aec2c376d13ea5aaaccf4acdd99b054c507 @audreyt audreyt committed Mar 9, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Pugs/src/Pugs/Lexer.hs
@@ -53,7 +53,7 @@ isWordAlpha :: Char -> Bool
isWordNoDash :: Char -> Bool
isWordAny x = (isAlphaNum x || x == '_' || x == '-' || x == '\'')
isWordAlpha x = (isAlpha x || x == '_')
-isWordNoDash x = (isAlphaNum x || x == '_')
+isWordNoDash x = (isAlphaNum x || x == '_' || x == '\'')
maybeParens :: RuleParser a -> RuleParser a
maybeParens p = choice [ parens p, p ]

0 comments on commit bc264ae

Please sign in to comment.