Changeset 14625 for src/Pugs/Parser

Timestamp:

11/05/06 03:30:55 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

41990

Message:

* Pugs.Parser: Adjust for the insertIntoPosition change.

Files:

• src/Pugs/Parser/Operator.hs (modified) (1 diff)

src/Pugs/Parser/Operator.hs

@@ -427 +427 @@
 makeOp2DotAssign prec _ con = (`Infix` prec) $ do
     symbol ".="
-    insertIntoPosition '.' -- "$x .= foo" becomes "$x .= .foo"
+    insertIntoPosition "." -- "$x .= foo" becomes "$x .= .foo"
     return $ \invExp argExp -> case argExp of
         -- XXX - App meth _ args -> stateAssignHack (con ".=" [invExp, App meth Nothing args])