Changeset 5108 for src/Pugs/Bind.hs

Timestamp:

06/30/05 01:14:12 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* adjust bound sequence to put hash in the last

Files:

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

src/Pugs/Bind.hs

@@ -270 +270 @@
     boundScalar <- return $ defaultScalar `zip` (givenInvs ++ givenArgs) -- put, uh, something in $_
 
-    let newBindings = concat [bindings, boundInv, boundNamed, boundPos, boundHash, boundArray, boundScalar]
+    let newBindings = concat [bindings, boundInv, boundNamed, boundPos, boundScalar, boundArray, boundHash]
     let newParams = params \\ (map fst newBindings);