Changeset 6393

Timestamp:

08/21/05 15:01:37 (3 years ago)

Author:

scook0

svk:copy_cache_prev:

8581

Message:

* Disallow leading delimiters in ruleDelimitedIdentifier

Files:

• src/Pugs/Lexer.hs (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -84 +84 @@
 
 {-|
-Match one or more identifiers, separated internally by the given delimiter
-(with an optional leading delimiter).
+Match one or more identifiers, separated internally by the given delimiter.
 
 Returns a list of the identifiers matched, discarding the delimiters.  You
@@ -94 +93 @@
                         -> GenParser Char st [String]
 ruleDelimitedIdentifier delim = verbatimRule "delimited identifier" $ do
-    option "" (try $ string delim) -- leading delimiter
+    -- Allowing the leading delim actually leads to subtle oddness with things
+    -- like `use jsan:.Foo` and `use pugs:::Foo`, so I took it out.
+    --option "" (try $ string delim) -- leading delimiter
     ruleVerbatimIdentifier `sepBy1` (try $ string delim)