diff options
-rw-r--r-- | compiler/GHC/HsToCore/Breakpoints.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Breakpoints.hs b/compiler/GHC/HsToCore/Breakpoints.hs index 98d302efe8..bbf88fa5ee 100644 --- a/compiler/GHC/HsToCore/Breakpoints.hs +++ b/compiler/GHC/HsToCore/Breakpoints.hs @@ -25,7 +25,7 @@ mkModBreaks interp mod extendedMixEntries let count = fromIntegral $ sizeSS extendedMixEntries entries = ssElts extendedMixEntries - breakArray <- GHCi.newBreakArray interp (length entries) + breakArray <- GHCi.newBreakArray interp count ccs <- mkCCSArray interp mod count entries let locsTicks = listArray (0,count-1) [ tick_loc t | t <- entries ] |