From 6489f93d146d7b6a381fc2815158240d26b5febc Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Sat, 15 Jul 2017 08:20:46 +0200 Subject: Less spam --- optimiser.hs | 7 +++---- 1 file 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) = -- cgit v1.2.3