[commit: ghc] master: Remove unused BottomFound from Tick (cea409a)
git at git.haskell.org
git at git.haskell.org
Mon Jun 25 16:46:11 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/cea409a399f606ec42114b5b149c8345ca6d9571/ghc
>---------------------------------------------------------------
commit cea409a399f606ec42114b5b149c8345ca6d9571
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Thu Jun 7 09:19:36 2018 +0100
Remove unused BottomFound from Tick
>---------------------------------------------------------------
cea409a399f606ec42114b5b149c8345ca6d9571
compiler/simplCore/CoreMonad.hs | 3 ---
1 file changed, 3 deletions(-)
diff --git a/compiler/simplCore/CoreMonad.hs b/compiler/simplCore/CoreMonad.hs
index 912ff99..4deee37 100644
--- a/compiler/simplCore/CoreMonad.hs
+++ b/compiler/simplCore/CoreMonad.hs
@@ -381,7 +381,6 @@ data Tick
| CaseIdentity Id -- Case binder
| FillInCaseDefault Id -- Case binder
- | BottomFound
| SimplifierDone -- Ticked at each iteration of the simplifier
instance Outputable Tick where
@@ -410,7 +409,6 @@ tickToTag (CaseMerge _) = 10
tickToTag (CaseElim _) = 11
tickToTag (CaseIdentity _) = 12
tickToTag (FillInCaseDefault _) = 13
-tickToTag BottomFound = 14
tickToTag SimplifierDone = 16
tickToTag (AltMerge _) = 17
@@ -430,7 +428,6 @@ tickString (AltMerge _) = "AltMerge"
tickString (CaseElim _) = "CaseElim"
tickString (CaseIdentity _) = "CaseIdentity"
tickString (FillInCaseDefault _) = "FillInCaseDefault"
-tickString BottomFound = "BottomFound"
tickString SimplifierDone = "SimplifierDone"
pprTickCts :: Tick -> SDoc
More information about the ghc-commits
mailing list