From bf4d72cfb92ce5453527aa83bce751229decb918 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Sun, 21 Jun 2009 13:52:55 +0200 Subject: [PATCH] Remove two old debug traces. --- Normalize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.30.2