Remove uses of Data.Traversable to fix stage1 on pre ghc-6.6 systems

[ghc-hetmet.git] / compiler / ghci / RtClosureInspect.hs

diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs
index 9161ae4..a4d853e 100644 (file)
--- a/compiler/ghci/RtClosureInspect.hs
+++ b/compiler/ghci/RtClosureInspect.hs
@@ -76,6 +76,7 @@ import TysWiredIn
 import Constants        ( wORD_SIZE )\r
 import FastString       ( mkFastString )\r
 import Outputable\r
+import Maybes\r
 import Panic\r
 \r
 import GHC.Arr          ( Array(..) )\r
@@ -87,13 +88,10 @@ import GHC.Word         ( Word32(..), Word64(..) )
 import Control.Monad    ( liftM, liftM2, msum )\r
 import Data.Maybe\r
 import Data.List\r
-import Data.Traversable ( mapM )\r
 import Data.Array.Base\r
 import Foreign.Storable\r
 import Foreign          ( unsafePerformIO )\r
 \r
-import Prelude hiding ( mapM )\r
-\r
 ---------------------------------------------\r
 -- * A representation of semi evaluated Terms\r
 ---------------------------------------------\r
@@ -546,7 +544,7 @@ zonkTerm = foldTerm idTermFoldM {
               fTerm = \ty dc v tt -> sequence tt      >>= \tt ->\r
                                      zonkTcType ty    >>= \ty' ->\r
                                      return (Term ty' dc v tt)\r
-             ,fSuspension = \ct ty v b -> mapM zonkTcType ty >>= \ty ->\r
+             ,fSuspension = \ct ty v b -> fmapMMaybe zonkTcType ty >>= \ty ->\r
                                           return (Suspension ct ty v b)}  \r
 \r
 {-\r