Remove redundant imports

common/src/GHC/Debug/Types.hs

@@ -14,7 +14,6 @@ import qualified Data.Array.Unboxed as A
 import qualified Data.ByteString.Lazy as BSL
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as C8
-import Data.Hashable
 import Data.Word
 import System.IO
 import System.IO.Unsafe
@@ -22,11 +21,7 @@ import System.IO.Unsafe
 import Data.Binary
 import Data.Binary.Put
 import Data.Binary.Get
-import System.Endian
 
-import Debug.Trace
-
-import Numeric (showHex)
 import GHC.Debug.Types.Closures as T
 import GHC.Debug.Types.Ptr as T
 

common/src/GHC/Debug/Types/Closures.hs

@@ -39,16 +39,11 @@ import qualified GHC.Exts.Heap as GHC
 
 
 import Data.Functor.Identity
-import Data.Bits
 import Data.Int
 import Data.Word
 import GHC.Exts
 import GHC.Generics
-import Numeric
 import GHC.Debug.Types.Ptr
-import Data.Bifunctor
-import Data.Bifoldable
-import Data.Bitraversable
 import Data.List
 import Data.Char
 

common/src/GHC/Debug/Types/Graph.hs

@@ -5,18 +5,10 @@ module GHC.Debug.Types.Graph where
 
 
 
-import GHC.Arr          (Array(..))
-
-import Foreign          hiding ( void )
 import Data.Char
 import Data.List
 import Data.Maybe       ( catMaybes )
-import Data.Monoid      ( Monoid, (<>), mempty )
-import Data.Functor
 import Data.Function
-import Data.Foldable    ( Foldable )
-import qualified Data.Foldable as F
-import Data.Traversable ( Traversable )
 import qualified Data.Traversable as T
 import qualified Data.IntMap as M
 import Control.Monad
@@ -24,7 +16,6 @@ import Control.Monad.Trans.State
 import Control.Monad.Trans.Class
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Writer.Strict
-import Control.Exception.Base (evaluate)
 import GHC.Debug.Types.Ptr
 import GHC.Debug.Types.Closures