Less spam

1 files changed, 3 insertions, 4 deletions

diff --git a/optimiser.hs b/optimiser.hs
index 2a27a5e..3163c33 100644
--- a/optimiser.hs
+++ b/optimiser.hs
@@ -1,10 +1,9 @@
 module Optimiser(optimise) where
 
 import Data.List
-import Data.Function
 import qualified Data.Map.Strict as Map
 
-import Debug.Trace
+-- import Debug.Trace
 
 import AST
 
@@ -17,9 +16,9 @@ optimisations =
     [collectSimilar, nullOps, collectAdds, propagateKnowns, firstSets, propagateSlides, uselessEnd, specialLoops, normaliseOrder]
 
 composedOpts :: Optimisation
--- composedOpts = foldl1 (.) (reverse optimisations)
+composedOpts = foldl1 (.) (reverse optimisations)
 -- composedOpts = foldl1 (.) (map (traceShowId .) $ reverse optimisations)
-composedOpts = foldl1 (.) (map ((\r -> traceShow (take 7 r) r) .) $ reverse optimisations)
+-- composedOpts = foldl1 (.) (map ((\r -> traceShow (take 7 r) r) .) $ reverse optimisations)
 
 optimise :: Program -> Program
 optimise (Program inss) =