diff --git a/libraries/ghci/GHCi/BreakArray.hs b/libraries/ghci/GHCi/BreakArray.hs
index 96ea36b67e5e851f8d51a6c0eca0d765e56e8d3a..0104f8d03bc8b77a788170d5edab00d1881a4690 100644
--- a/libraries/ghci/GHCi/BreakArray.hs
+++ b/libraries/ghci/GHCi/BreakArray.hs
@@ -30,11 +30,9 @@ module GHCi.BreakArray
     , setupBreakpoint
     , breakOn
     , breakOff
-    , showBreakArray
     ) where
 
 import Prelude -- See note [Why do we import Prelude here?]
-import Control.Monad
 
 import GHC.Exts
 import GHC.IO ( IO(..) )
@@ -48,13 +46,6 @@ breakOff, breakOn :: Int
 breakOn  = 0
 breakOff = -1
 
-showBreakArray :: BreakArray -> IO ()
-showBreakArray array = do
-    forM_ [0 .. (size array - 1)] $ \i -> do
-        val <- readBreakArray array i
-        putStr $ ' ' : show val
-    putStr "\n"
-
 setupBreakpoint :: BreakArray -> Int -> Int -> IO Bool
 setupBreakpoint breakArray ind val
     | safeIndex breakArray ind = do