Changeset 3612 for src/Pugs/Lexer.hs

Timestamp:

05/21/05 23:51:33 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5201

Message:

* unify parsing for class Foo {} and class Foo; -- the latter

form was without is Bar handling.

Files:

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

src/Pugs/Lexer.hs

@@ -255 +255 @@
 ruleTrait = rule "trait" $ do
     symbol "is" <|> symbol "does"
-    trait <- ruleQualifiedIdentifier
+    trait <- do
+        optional $ string "::" -- XXX Bad Hack
+        ruleQualifiedIdentifier
     return trait