From a83b6bea626c0f42879af662b90c587d56eb5df0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 26 Sep 2011 13:56:39 +0000
Subject: don't count app nodes in term size

---
 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 d27a0b497..7017c920e 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -191,7 +191,7 @@ execute1 opts gfenv0 s0 =
           ops <- case xs of
              _:_ -> do
                let ts = [t | Right t <- map (runP pExp . encodeUnicode utf8) xs]
-               err error (return . nub . (ts ++) . concat) $ mapM (constantDepsTerm sgr) ts
+               err error (return . nub . concat) $ mapM (constantDepsTerm sgr) ts
              _   -> error "expected one or more qualified constants as argument"
           let prTerm = showTerm sgr TermPrintDefault Qualified
           let size = sizeConstant sgr
-- 
cgit v1.2.3