Remove two debug traces.

[matthijs/master-project/cλash.git] / cλash / CLasH / Normalize.hs

diff --git a/cλash/CLasH/Normalize.hs b/cλash/CLasH/Normalize.hs
index cd205c6686855d7c178d8484fbe300adde2864ea..d6acc13b19dbc82e37ffaa08195421c63e1f4e52 100644 (file)
--- a/cλash/CLasH/Normalize.hs
+++ b/cλash/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