From 033da07c3960e2e1b42143aa6deaea387260a9b6 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 9 Sep 2008 06:58:38 +0000
Subject: show "error" in run interruptibly mode in GFI

---
 src/GFI.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GFI.hs')

diff --git a/src/GFI.hs b/src/GFI.hs
index a38481cbe..04c4c5d75 100644
--- a/src/GFI.hs
+++ b/src/GFI.hs
@@ -119,7 +119,8 @@ loop opts gfenv0 = do
           _ -> do
             interpretCommandLine enc env s
             loopNewCPU gfenv
-        gfenv' <- return $ either (const gfenv) id r
+--        gfenv' <- return $ either (const gfenv) id r
+        gfenv' <- either (\e -> (print e >> return gfenv)) return r
         loop opts gfenv'
 
 importInEnv :: GFEnv -> Options -> [FilePath] -> IO GFEnv
-- 
cgit v1.2.3