Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/97d2022f842a68a1d724375bce805e959b424416 >--------------------------------------------------------------- commit 97d2022f842a68a1d724375bce805e959b424416 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Apr 18 17:39:44 2012 +0100 Tidy some traces, imports >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/MSG.hs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/MSG.hs b/compiler/supercompile/Supercompile/Drive/MSG.hs index c16f00f..afde468 100644 --- a/compiler/supercompile/Supercompile/Drive/MSG.hs +++ b/compiler/supercompile/Supercompile/Drive/MSG.hs @@ -18,7 +18,7 @@ import qualified CoreSyn as Core import Util import Coercion import Var (TyVar, isTyVar, isId, tyVarKind, setVarType, setTyVarKind) -import Id (Id, idType, idName, realIdUnfolding, setIdUnfolding, idSpecialisation, setIdSpecialisation, isGlobalId) +import Id (Id, idType, idName, realIdUnfolding, setIdUnfolding, idSpecialisation, setIdSpecialisation) import IdInfo (SpecInfo(..)) import VarEnv import TypeRep (Kind, Type(..)) @@ -171,7 +171,7 @@ msgWithReason {- mm -} (deeds_l, Heap h_l ids_l, k_l, qa_l) (deeds_r, Heap h_r i firstSuccess :: [MSG' a] -> MSG' a firstSuccess [] = Left "firstSuccess: no elements at all" firstSuccess (Left _:next:nexts) = firstSuccess (next:nexts) - firstSuccess [Left msg] | trace ("firstSuccess: " ++ msg) False = undefined + --firstSuccess [Left msg] | trace ("firstSuccess: " ++ msg) False = undefined firstSuccess (it:_) = it msgAnned :: (a -> a -> MSG b) @@ -468,7 +468,7 @@ msgPureHeap {- mm -} rn2 msg_s init_h_l init_h_r (k_bvs_l, k_fvs_l) (k_bvs_r, k_ -> [MSG' (M.Map Var Var, (PureHeap, Heap, PureHeap), M.Map Var Var)] go rn_l rn_r _ _ h_l h_r h (MSGState { msgPending = [], msgInScopeSet = ids }) = [return (rn_l, (h_l, Heap h ids, h_r), rn_r)] go rn_l rn_r used_l used_r h_l h_r h msg_s@(MSGState { msgPending = ((x_common, (x_l, x_r)):rest) }) - | pprTrace "msgPureHeap" (ppr (x_common, x_l, x_r)) False = undefined + -- | pprTrace "msgPureHeap" (ppr (x_common, x_l, x_r)) False = undefined -- Just like an internal binder, we have to be sure to match the binders themselves (for e.g. type variables) | Right (msg_s, x_common) <- flip unMSG (msg_s { msgPending = rest }) (msgBndrExtras rn2 x_common x_l x_r) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
