X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplify.lhs;h=27424dd02385f5ce953a431074366186c16d928e;hp=9ef9b2a491c89574d898a9b27fc0b4d8697bade1;hb=dabfa71f33eabc5a2d10959728f772aa016f1c84;hpb=f3998ec18fd0f3d56b377d41e2a2958aaf9460ec

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 9ef9b2a..27424dd 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -29,7 +29,6 @@ import Maybes		( maybeToBool )
 import Name		( isLocallyDefined )
 import PprStyle		( PprStyle(..) )
 import PprType		( GenType{-instance Outputable-} )
-import PrelInfo		( realWorldStateTy )
 import Pretty		( ppAbove )
 import PrimOp		( primOpOkForSpeculation, PrimOp(..) )
 import SimplCase	( simplCase, bindLargeRhs )
@@ -40,6 +39,7 @@ import SimplUtils
 import Type		( mkTyVarTy, mkTyVarTys, mkAppTy,
 			  splitFunTy, getFunTy_maybe, eqTy
 			)
+import TysWiredIn	( realWorldStateTy )
 import Util		( isSingleton, zipEqual, panic, pprPanic, assertPanic )
 \end{code}