X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FNormalize.hs;h=d6acc13b19dbc82e37ffaa08195421c63e1f4e52;hp=cd205c6686855d7c178d8484fbe300adde2864ea;hb=118a85a1ad01d78cf9e4a2e63d0f7b4f35bb8a1f;hpb=8663a3e3f2776039a31528c3087ef5725d401932

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