Follow changes in comparison primops (see #6135)
[ghc.git] / testsuite / tests / simplCore / should_compile / T5658b.hs
index 61454a1..baaea86 100644 (file)
@@ -1,18 +1,18 @@
 {-# LANGUAGE MagicHash, BangPatterns #-}
 module T5658b where
 import GHC.Prim
-import GHC.PrimWrappers
+import GHC.Exts ( isTrue# )
 
 foo :: ByteArray# -> ByteArray# -> Int# -> Int# -> Bool
 foo xs ys m n = go 0# 0#
   where
-    go i j = case i >=# m of
+    go i j = case isTrue# (i >=# m) of
       False -> let !x = indexIntArray# xs i in
-        case j >=# n of
-          False -> case x ==# indexIntArray# ys j of
+        case isTrue# (j >=# n) of
+          False -> case isTrue# (x ==# indexIntArray# ys j) of
             False -> False
             True  -> go (i +# 1#) (j +# 1#)
           True -> False
-      True -> case j >=# n of
+      True -> case isTrue# (j >=# n) of
         False -> let !y = indexIntArray# ys i in False
         True -> True