From 780d9ef528934d17191124cb41b480b0b8dc2d90 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sat, 24 Sep 2011 08:20:58 +0000
Subject: bug fixes in code size analysis

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

(limited to 'src/compiler/GFI.hs')

diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs
index 7bb4df878..77f534d46 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -191,7 +191,7 @@ execute1 opts gfenv0 s0 =
           ops <- case ts of
              _:_ -> do
                let Right t = runP pExp (encodeUnicode utf8 (unwords ts))
-               err error return $ constantDepsTerm sgr t
+               err error (return . (t:)) $ constantDepsTerm sgr t
              _   -> error "give a term as argument"
           let prTerm = showTerm sgr TermPrintDefault Qualified
           let size = sizeConstant sgr
-- 
cgit v1.2.3