Changeset 3333 for src/Pugs/Junc.hs

Timestamp:

05/17/05 13:58:47 (4 years ago)

Author:

scook0

svk:copy_cache_prev:

4908

Message:

More function type declarations.

Files:

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

src/Pugs/Junc.hs

@@ -105 +105 @@
     = f args
     where
+    appSet :: ([ApplyArg], [ApplyArg]) -> Set Val -> Eval (Set Val)
     appSet x y = return . Set.fromList =<< appList x y
+    appList :: ([ApplyArg], [ApplyArg]) -> Set Val -> Eval [Val]
     appList (before, (ApplyArg name _ coll):after) vs = do
         mapM (\v -> juncApply f (before ++ ((ApplyArg name v coll):after))) $ Set.elems vs