Stopping tick boxes for being removed round calls to error.

[ghc-hetmet.git] / compiler / simplCore / SimplMonad.lhs

diff --git a/compiler/simplCore/SimplMonad.lhs b/compiler/simplCore/SimplMonad.lhs
index bc09e11..a198b32 100644 (file)
--- a/compiler/simplCore/SimplMonad.lhs
+++ b/compiler/simplCore/SimplMonad.lhs
@@ -41,13 +41,9 @@ import FastString    ( FastString )
 import Outputable
 import FastTypes
 
-import GLAEXTS         ( indexArray# )
+import GHC.Exts                ( indexArray# )
 
-#if __GLASGOW_HASKELL__ < 503
-import PrelArr  ( Array(..) )
-#else
 import GHC.Arr  ( Array(..) )
-#endif
 
 import Array           ( array, (//) )