Remove two debug traces.
authorMatthijs Kooijman <matthijs@stdin.nl>
Tue, 13 Apr 2010 14:09:36 +0000 (16:09 +0200)
committerMatthijs Kooijman <matthijs@stdin.nl>
Tue, 13 Apr 2010 14:09:36 +0000 (16:09 +0200)
cλash/CLasH/Normalize.hs

index cd205c6686855d7c178d8484fbe300adde2864ea..d6acc13b19dbc82e37ffaa08195421c63e1f4e52 100644 (file)
@@ -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