From a3df654c42ff946befd22b840564f95175dd9c86 Mon Sep 17 00:00:00 2001
From: Cheng Shao <terrorjack@type.dance>
Date: Sat, 22 Feb 2025 04:02:29 +0000
Subject: [PATCH] ghci: remove unused showBreakArray function
GHCi.BreakArray.showBreakArray is not used anywhere, hence the
housecleaning.
(cherry picked from commit 2d6a63ab66427a3ee6b0861656f3fc4f59f7692c)
---
libraries/ghci/GHCi/BreakArray.hs | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/libraries/ghci/GHCi/BreakArray.hs b/libraries/ghci/GHCi/BreakArray.hs
index 96ea36b67e5..0104f8d03bc 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
--
GitLab