From 118a85a1ad01d78cf9e4a2e63d0f7b4f35bb8a1f Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Tue, 13 Apr 2010 16:09:36 +0200
Subject: [PATCH] Remove two debug traces.
---
"c\316\273ash/CLasH/Normalize.hs" | 2 --
1 file changed, 2 deletions(-)
diff --git "a/c\316\273ash/CLasH/Normalize.hs" "b/c\316\273ash/CLasH/Normalize.hs"
index cd205c6..d6acc13 100644
--- "a/c\316\273ash/CLasH/Normalize.hs"
+++ "b/c\316\273ash/CLasH/Normalize.hs"
@@ -831,8 +831,6 @@ inlinenonrepresult context expr | not (is_fun expr) =
let newbody = mkLams bndrs (Let (Rec binds) newres)
-- Create the new function
f' <- Trans.lift $ mkFunction f newbody
- trace ("New body: " ++ pprString newbody) $ return ()
- trace ("Function type" ++ (pprString $ Id.idType f')) $ return ()
-- Call the new function
let newapp = mkApps (Var f') args
--
2.30.2