Changeset 8153 for src/Pugs/Lexer.hs

Timestamp:

12/10/05 13:24:15 (3 years ago)

Author:

gaal

Message:

* Refactor Cxt, Pos, and Prag nodes in Exp to a unified Ann

(for Annotation) type. This should ease work on lexical pragmas.

Files:

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

src/Pugs/Lexer.hs

@@ -163 +163 @@
 interpolatingStringLiteral startrule endrule interpolator = do
     list <- stringList 0
-    return . Cxt (CxtItem $ mkType "Str") $ homogenConcat list
+    return $ Ann (Cxt (CxtItem $ mkType "Str")) (homogenConcat list)
     where
     homogenConcat :: [Exp] -> Exp