Fix mistake in previous commits.
authorDavid Terei <davidterei@gmail.com>
Thu, 26 Jan 2012 09:51:06 +0000 (01:51 -0800)
committerDavid Terei <davidterei@gmail.com>
Thu, 26 Jan 2012 09:51:06 +0000 (01:51 -0800)
compiler/main/InteractiveEval.hs

index 14d8b57..cdc2ca5 100644 (file)
@@ -209,7 +209,7 @@ runStmtWithLocation source linenumber expr step =
         status <-
           withVirtualCWD $
             withBreakAction (isStep step) dflags' breakMVar statusMVar $ do
-                liftIO $ sandboxIO dflags' statusMVar thing_to_run
+                liftIO $ sandboxIO dflags' statusMVar hval
 
         let ic = hsc_IC hsc_env
             bindings = (ic_tythings ic, ic_rn_gbl_env ic)