Skip to content
Snippets Groups Projects
Commit a3df654c authored by Cheng Shao's avatar Cheng Shao
Browse files

ghci: remove unused showBreakArray function

GHCi.BreakArray.showBreakArray is not used anywhere, hence the
housecleaning.

(cherry picked from commit 2d6a63ab)
parent 54bd9f01
No related branches found
No related tags found
No related merge requests found
...@@ -30,11 +30,9 @@ module GHCi.BreakArray ...@@ -30,11 +30,9 @@ module GHCi.BreakArray
, setupBreakpoint , setupBreakpoint
, breakOn , breakOn
, breakOff , breakOff
, showBreakArray
) where ) where
import Prelude -- See note [Why do we import Prelude here?] import Prelude -- See note [Why do we import Prelude here?]
import Control.Monad
import GHC.Exts import GHC.Exts
import GHC.IO ( IO(..) ) import GHC.IO ( IO(..) )
...@@ -48,13 +46,6 @@ breakOff, breakOn :: Int ...@@ -48,13 +46,6 @@ breakOff, breakOn :: Int
breakOn = 0 breakOn = 0
breakOff = -1 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 -> Int -> Int -> IO Bool
setupBreakpoint breakArray ind val setupBreakpoint breakArray ind val
| safeIndex breakArray ind = do | safeIndex breakArray ind = do
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment