Changeset 5498 for src/Pugs/Monads.hs

Timestamp:

07/12/05 15:50:08 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7501

Message:

* export.t -- putting out the fire (I think)

Files:

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

src/Pugs/Monads.hs

@@ -275 +275 @@
 headVal (v:_) = return v
 
+tempVar :: String -> Val -> Eval a -> Eval a
+tempVar var val action = do
+    old <- readVar var
+    writeVar var val
+    rv  <- action
+    writeVar var old
+    return rv
+