Changeset 2978 for src/Pugs/Bind.hs

Timestamp:

05/11/05 17:49:21 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* Remove the "Ident" type synonym; it's now either "Var" or "String".

Files:

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

src/Pugs/Bind.hs

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