X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplMonad.lhs;h=1569843dd8a2317dc94e0950c48ccccc0dc38586;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hp=bc8fac77a7aecc3f986b767a2776b28a1972e629;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index bc8fac7..1569843 100644
--- a/ghc/compiler/simplCore/SimplMonad.lhs
+++ b/ghc/compiler/simplCore/SimplMonad.lhs
@@ -26,18 +26,16 @@ import Ubiq{-uitous-}
 
 import SmplLoop		-- well, cheating sort of
 
-import Id		( mkSysLocal )
+import Id		( mkSysLocal, mkIdWithNewUniq )
 import SimplEnv
 import SrcLoc		( mkUnknownSrcLoc )
+import TyVar		( cloneTyVar )
 import UniqSupply	( getUnique, getUniques, splitUniqSupply,
 			  UniqSupply
 			)
 import Util		( zipWithEqual, panic )
 
 infixr 9  `thenSmpl`, `thenSmpl_`
-
-cloneTyVar = panic "cloneTyVar (SimplMonad)"
-mkIdWithNewUniq = panic "mkIdWithNewUniq (SimplMonad)"
 \end{code}
 
 %************************************************************************