diff --git a/CLasH/Normalize/NormalizeTools.hs b/CLasH/Normalize/NormalizeTools.hs
--- a/CLasH/Normalize/NormalizeTools.hs
+++ b/CLasH/Normalize/NormalizeTools.hs
@@ -41,7 +41,7 @@
   | NormDbgApplied      -- ^ Print expressions before / after applying transformations
   | NormDbgAll          -- ^ Print expressions when a transformation does not apply
   deriving (Eq, Ord)
-normalize_debug = NormDbgFinal
+normalize_debug = NormDbgNone
 
 -- Applies a transform, optionally showing some debug output.
 apply :: (String, Transform) -> Transform
diff --git a/CLasH/Translator.hs b/CLasH/Translator.hs
--- a/CLasH/Translator.hs
+++ b/CLasH/Translator.hs
@@ -90,7 +90,7 @@
       tops -> createDesignFiles (tops ++ test_binds)
     count <- get tsTransformCounter 
     return (vhdl, count)
-  mapM_ (putStr . render . Ppr.ppr . snd) vhdl
+  -- mapM_ (putStr . render . Ppr.ppr . snd) vhdl
   putStr $ "Total number of transformations applied: " ++ (show count) ++ "\n"
   return vhdl
   where
diff --git a/clash.cabal b/clash.cabal
--- a/clash.cabal
+++ b/clash.cabal
@@ -1,5 +1,5 @@
 name:               clash
-version:            0.1.2.4
+version:            0.1.2.5
 build-type:         Simple
 synopsis:           CAES Language for Synchronous Hardware (CLaSH)
 description:        CLaSH is a tool-chain/language to translate subsets of