Changeset 10841 for src/Pugs/Lexer.hs

Timestamp:

06/23/06 01:53:05 (2 years ago)

Author:

audreyt

Message:

* Pugs::Lexer - make these two equivalent:

my Foo $x;
my ::Foo $x;

previously the second one was assigning ::::Foo to $x.

Files:

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

src/Pugs/Lexer.hs

@@ -398 +398 @@
 ruleType = literalRule "context" $ do
     -- Valid type names: Foo, Bar::Baz, ::Grtz, ::?CLASS, but not :Foo
-    lead    <- count 1 wordAlpha <|> string "::"
+    lead    <- count 1 wordAlpha <|> (string "::" >> return [])
     rest    <- many (wordAny <|> oneOf ":&|?")
     return (lead ++ rest)