1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/BreakArray.hs b/compiler/main/BreakArray.hs
index 65bf932cda..9b84931390 100644
--- a/compiler/main/BreakArray.hs
+++ b/compiler/main/BreakArray.hs
@@ -32,7 +32,7 @@ import DynFlags
 #ifdef GHCI
 import Control.Monad
 
-import ExtsCompat46
+import GHC.Exts
 import GHC.IO ( IO(..) )
 import System.IO.Unsafe ( unsafeDupablePerformIO )
 
@@ -95,7 +95,7 @@ newBreakArray dflags entries@(I# sz) = do
     BA array <- allocBA (entries * wORD_SIZE dflags)
     case breakOff of
         W# off -> do    -- Todo: there must be a better way to write zero as a Word!
-            let loop n | n ==# sz = return ()
+            let loop n | isTrue# (n ==# sz) = return ()
                        | otherwise = do
                              writeBA# array n off
                              loop (n +# 1#)