Changeset 26 for src/Monads.hs

Timestamp:

02/14/05 06:02:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* snapshot during monadic refactoring

Files:

• src/Monads.hs (modified) (1 diff)

src/Monads.hs

@@ -164 +164 @@
     | otherwise = do
         env <- caller n
-        shiftT $ \r -> return $ VErr $ ErrRet ((==) (envID env) . envID) v
+        shiftT $ \r -> return $ VErr $ ErrRet (return . (==) (envID env) . envID) v
 
 returnScope = callerReturn 0 . VStr
 
 data VErr = ErrStr String
-          | ErrRet (Env -> Bool) Val
+          | ErrRet (Env -> Eval Bool) Val
     deriving (Typeable, Show, Eq)