Changeset 15297 for src/Pugs/Lexer.hs

Timestamp:

02/18/07 15:59:02 (21 months ago)

Author:

audreyt

Message:

* Revert the previous patch; everything back to normal.

Files:

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

src/Pugs/Lexer.hs

@@ -237 +237 @@
     where
     homogenConcat :: [Exp] -> Exp
-    homogenConcat [] = Val (_VStr "")
+    homogenConcat [] = Val (VStr "")
     homogenConcat [v@(Val (VStr _))] = v
     homogenConcat (Val (VStr x):Val (VStr y):xs)
-        = homogenConcat (Val (VStr (x +++ y)) : xs)
+        = homogenConcat (Val (VStr (x ++ y)) : xs)
     homogenConcat (x:xs)
         = App (_Var "&infix:~") Nothing [x, homogenConcat xs]
@@ -256 +256 @@
                 else do
                     rest <- stringList (i-1)
-                    return (Val (_VStr ch):rest)
+                    return (Val (VStr ch):rest)
         , do
             ch   <- try startRule
             rest <- stringList (i+1)
-            return (Val (_VStr ch):rest)
+            return (Val (VStr ch):rest)
         , do
             char <- anyChar
             rest <- stringList i
-            return (Val (_VStr [char]):rest)
+            return (Val (VStr [char]):rest)
         ]