Changeset 10178 for src/Pugs/Lexer.hs

Timestamp:

05/01/06 15:12:27 (3 years ago)

Author:

audreyt

svk:copy_cache_prev:

13387

Message:

* Lexer: oops, typo. xinming++

Files:

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

src/Pugs/Lexer.hs

@@ -204 +204 @@
                            -> RuleParser Exp    -- ^ Entire string
                                                 --     (without delims)
-interpolatingStringLiteral startrule endrule interpolator = do
+interpolatingStringLiteral startRule endRule interpolator = do
     list <- stringList 0
     return $ Ann (Cxt (CxtItem $ mkType "Str")) (homogenConcat list)
@@ -223 +223 @@
             return (parse:rest)
         , do
-            ch    <- endrule
+            ch    <- endRule
             if i == 0
                 then return []