From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Sun, 21 Jun 2009 11:52:55 +0000 (+0200)
Subject: Remove two old debug traces.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=bf4d72cfb92ce5453527aa83bce751229decb918;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Remove two old debug traces.
---

diff --git a/Normalize.hs b/Normalize.hs
index 99f6f0c..d2f50a7 100644
--- a/Normalize.hs
+++ b/Normalize.hs
@@ -361,10 +361,10 @@ normalizeBind bndr = do
           -- Find all vars used with a function type. All of these should be global
           -- binders (i.e., functions used), since any local binders with a function
           -- type should have been inlined already.
-          let used_funcs_set = CoreFVs.exprSomeFreeVars (\v -> trace (showSDoc $ ppr $ Id.idType v) ((Type.isFunTy . snd . Type.splitForAllTys . Id.idType)v)) expr''
+          let used_funcs_set = CoreFVs.exprSomeFreeVars (\v -> (Type.isFunTy . snd . Type.splitForAllTys . Id.idType) v) expr''
           let used_funcs = VarSet.varSetElems used_funcs_set
           -- Process each of the used functions recursively
-          mapM normalizeBind (trace (show used_funcs) used_funcs)
+          mapM normalizeBind used_funcs
           return ()
         -- We don't have a value for this binder, let's assume this is a builtin
         -- function. This might need some extra checking and a nice error