From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Tue, 13 Apr 2010 14:09:36 +0000 (+0200)
Subject: Remove two debug traces.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=118a85a1ad01d78cf9e4a2e63d0f7b4f35bb8a1f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Remove two debug traces.
---

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