Changeset 3724 for src/Pugs/Monads.hs

Timestamp:

05/23/05 13:09:12 (4 years ago)

Author:

scook0

svk:copy_cache_prev:

5313

Message:

* Some non-toplevel function type signatures (for readability)
* Minor tweaks to Haddocks

Files:

• src/Pugs/Monads.hs (modified) (2 diffs)

src/Pugs/Monads.hs

@@ -169 +169 @@
     where
     typ = subType sub
+    doCC :: (Val -> Eval b) -> [Val] -> Eval b
     doCC cc [v] = cc =<< evalVal v
     doCC _  _   = internalError "enterSub: doCC list length /= 1"
+    orig :: VCode -> VCode
     orig sub = sub { subBindings = [], subParams = (map fst (subBindings sub)) }
+    fixEnv :: (Val -> Eval Val) -> Env -> Eval (Env -> Env)
     fixEnv cc env
         | typ >= SubBlock = do
@@ -191 +194 @@
                 , envOuter   = maybe Nothing envOuter (subEnv sub)
                 }
+    ccSub :: (Val -> Eval Val) -> Env -> VCode
     ccSub cc env = mkPrim
         { subName = "CALLER_CONTINUATION"