[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