From f8f152e7089af9a5434408e17ff071999d381ee1 Mon Sep 17 00:00:00 2001
From: Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io>
Date: Wed, 30 Mar 2022 21:11:54 +0200
Subject: Change GHC.Prim to GHC.Exts in docs and tests

Users are supposed to import GHC.Exts rather than GHC.Prim.
Part of #18749.
---
 testsuite/tests/concurrent/should_run/T367_letnoescape.hs      | 1 -
 testsuite/tests/concurrent/should_run/hs_try_putmvar001.hs     | 2 +-
 testsuite/tests/concurrent/should_run/hs_try_putmvar002.hs     | 2 +-
 testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs     | 2 +-
 testsuite/tests/concurrent/should_run/setnumcapabilities001.hs | 2 +-
 5 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'testsuite/tests/concurrent')

diff --git a/testsuite/tests/concurrent/should_run/T367_letnoescape.hs b/testsuite/tests/concurrent/should_run/T367_letnoescape.hs
index 5230509e71..0e91ea693a 100644
--- a/testsuite/tests/concurrent/should_run/T367_letnoescape.hs
+++ b/testsuite/tests/concurrent/should_run/T367_letnoescape.hs
@@ -4,7 +4,6 @@
 
 import Control.Concurrent
 import GHC.Conc
-import GHC.Prim
 import GHC.Exts
 
 main = do
diff --git a/testsuite/tests/concurrent/should_run/hs_try_putmvar001.hs b/testsuite/tests/concurrent/should_run/hs_try_putmvar001.hs
index af4eabb263..a16ae482cb 100644
--- a/testsuite/tests/concurrent/should_run/hs_try_putmvar001.hs
+++ b/testsuite/tests/concurrent/should_run/hs_try_putmvar001.hs
@@ -6,7 +6,7 @@ import Control.Exception
 import Foreign
 import Foreign.C
 import GHC.Conc
-import GHC.Prim
+import GHC.Exts
 
 -- Sample code demonstrating proper use of hs_try_putmvar()
 
diff --git a/testsuite/tests/concurrent/should_run/hs_try_putmvar002.hs b/testsuite/tests/concurrent/should_run/hs_try_putmvar002.hs
index a8eac42dec..d1130981d6 100644
--- a/testsuite/tests/concurrent/should_run/hs_try_putmvar002.hs
+++ b/testsuite/tests/concurrent/should_run/hs_try_putmvar002.hs
@@ -7,7 +7,7 @@ import Control.Monad
 import Foreign hiding (void)
 import Foreign.C
 import GHC.Conc
-import GHC.Prim
+import GHC.Exts
 import System.Environment
 
 -- Measure raw throughput, for M threads that each do N calls to C
diff --git a/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs b/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs
index caaadc1aae..6677207665 100644
--- a/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs
+++ b/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs
@@ -8,7 +8,7 @@ import Foreign hiding (void)
 import Foreign.C
 import GHC.Conc
 import GHC.MVar (MVar(..))
-import GHC.Prim
+import GHC.Exts
 import System.Environment
 import System.Exit
 import Unsafe.Coerce
diff --git a/testsuite/tests/concurrent/should_run/setnumcapabilities001.hs b/testsuite/tests/concurrent/should_run/setnumcapabilities001.hs
index a18d75aeef..436c068b29 100644
--- a/testsuite/tests/concurrent/should_run/setnumcapabilities001.hs
+++ b/testsuite/tests/concurrent/should_run/setnumcapabilities001.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE MagicHash, UnboxedTuples #-}
 
 import GHC.Conc
-import GHC.Prim
+import GHC.Exts
 import System.Environment
 import System.IO
 import Control.Monad
-- 
cgit v1.2.1