Changeset 6187 for src/Pugs/Lexer.hs

Timestamp:

08/11/05 12:09:58 (3 years ago)

Author:

autrijus

Message:

* Allow lowercase and underscore for type names, eg:

sub f (foo $x) { ... }

Reported by jql.

Files:

• src/Pugs/Lexer.hs (modified) (1 diff)

src/Pugs/Lexer.hs

@@ -302 +302 @@
 ruleType = literalRule "context" $ do
     -- Valid type names: Foo, Bar::Baz, ::Grtz, ::?CLASS
-    lead    <- upper <|> char ':'
+    lead    <- wordAlpha <|> char ':'
     rest    <- many (wordAny <|> oneOf ":&|?")
     return (lead:rest)