X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplMonad.lhs;h=10bc70d4e25bef9683b5f31a418270b85ae5ee61;hb=28cb2d6d40264796fb84da1f352490fd2b8eb27f;hp=5065f5780e46f658c0afd501e4c8a86c75559ac3;hpb=63e3a41126771e71c44705480c2bde7043a41df3;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplMonad.lhs b/compiler/simplCore/SimplMonad.lhs
index 5065f57..10bc70d 100644
--- a/compiler/simplCore/SimplMonad.lhs
+++ b/compiler/simplCore/SimplMonad.lhs
@@ -201,8 +201,6 @@ isAmongSimpl on_switches		-- Switches mentioned later occur *earlier*
     -- (avoid some unboxing, bounds checking, and other horrible things:)
     \ switch -> unsafeAt sw_tbl $ iBox (tagOf_SimplSwitch switch)
   where
-    mk_assoc_elem k@(MaxSimplifierIterations lvl)
-	= (iBox (tagOf_SimplSwitch k), SwInt lvl)
     mk_assoc_elem k
 	= (iBox (tagOf_SimplSwitch k), SwBool True) -- I'm here, Mom!
 
@@ -252,8 +250,7 @@ instance Ord SimplifierSwitch where
 
 
 tagOf_SimplSwitch :: SimplifierSwitch -> FastInt
-tagOf_SimplSwitch (MaxSimplifierIterations _)	= _ILIT(1)
-tagOf_SimplSwitch NoCaseOfCase			= _ILIT(2)
+tagOf_SimplSwitch NoCaseOfCase			= _ILIT(1)
 
 -- If you add anything here, be sure to change lAST_SIMPL_SWITCH_TAG, too!