Remove unnecessary instances

2 files changed, 2 insertions, 24 deletions

diff --git a/libraries/base/GHC/Stack/CloneStack.hs b/libraries/base/GHC/Stack/CloneStack.hs
index cb3512c45b..3515cb9e33 100644
--- a/libraries/base/GHC/Stack/CloneStack.hs
+++ b/libraries/base/GHC/Stack/CloneStack.hs
@@ -19,47 +19,29 @@ module GHC.Stack.CloneStack (
   StackEntry(..),
   cloneMyStack,
   cloneThreadStack,
-  decode,
-  stackSnapshotToString
+  decode
   ) where
 
 import Control.Concurrent.MVar
 import Data.Maybe (catMaybes)
 import Foreign
 import GHC.Conc.Sync
-import GHC.Exts (Int (I#), RealWorld, StackSnapshot#, ThreadId#, Array#, sizeofArray#, indexArray#, State#, StablePtr#, Word#, unsafeCoerce#)
+import GHC.Exts (Int (I#), RealWorld, StackSnapshot#, ThreadId#, Array#, sizeofArray#, indexArray#, State#, StablePtr#)
 import GHC.IO (IO (..))
 import GHC.InfoProv (InfoProv (..), InfoProvEnt, ipLoc, ipeProv, peekInfoProv)
 import GHC.Stable
-import GHC.Word
-import Numeric
 
 -- | A frozen snapshot of the state of an execution stack.
 --
 -- @since 4.17.0.0
 data StackSnapshot = StackSnapshot !StackSnapshot#
 
-instance Show StackSnapshot where
-   showsPrec _ stack rs =
-    "StackSnapshot(" ++  stackSnapshotToString stack ++ ")" ++ rs
-
-stackSnapshotToString :: StackSnapshot -> String
-stackSnapshotToString (StackSnapshot s#) = pad_out (showHex addr "")
-     where
-        addr = W# (unsafeCoerce# s#)
-        pad_out ls = '0':'x':ls
-
-instance Eq StackSnapshot where
-  (StackSnapshot s1#) == (StackSnapshot s2#) = (W# (eqStacks# s1# s2#)) > 0
-
 foreign import prim "stg_decodeStackzh" decodeStack# :: StackSnapshot# -> State# RealWorld -> (# State# RealWorld, Array# (Ptr InfoProvEnt) #)
 
 foreign import prim "stg_cloneMyStackzh" cloneMyStack# :: State# RealWorld -> (# State# RealWorld, StackSnapshot# #)
 
 foreign import prim "stg_sendCloneStackMessagezh" sendCloneStackMessage# :: ThreadId# -> StablePtr# PrimMVar -> State# RealWorld -> (# State# RealWorld, (# #) #)
 
-foreign import prim "eqStackszh" eqStacks# :: StackSnapshot# -> StackSnapshot# -> Word#
-
 {-
 Note [Stack Cloning]
 ~~~~~~~~~~~~~~~~~~~~
diff --git a/libraries/base/cbits/StackCloningDecoding.cmm b/libraries/base/cbits/StackCloningDecoding.cmm
index 691e97966d..17b71dd0f0 100644
--- a/libraries/base/cbits/StackCloningDecoding.cmm
+++ b/libraries/base/cbits/StackCloningDecoding.cmm
@@ -24,7 +24,3 @@ stg_decodeStackzh (gcptr stgStack) {
 
     return (stackEntries);
 }
-
-eqStackszh(P_ stack1, P_ stack2) {
-  return (stack1 == stack2);
-}