Changeset 8153 for src/Pugs/Bind.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/Bind.hs (modified) (1 diff)

src/Pugs/Bind.hs

@@ -104 +104 @@
           -> MaybeError (Bindings, SlurpLimit)
 bindArray vs ps oldLimit = do
-    let exp = Cxt cxtSlurpyAny (Syn "," vs)
+    let exp = Ann (Cxt cxtSlurpyAny) (Syn "," vs)
     case foldM (doBindArray exp) ([], 0) prms of
         Left errMsg      -> fail errMsg