summaryrefslogtreecommitdiff
path: root/compiler/GHC/Data
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2022-10-31 22:40:07 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-11-03 23:08:09 -0400
commit311251543f2e37af4a121e58028bfc46267a7fc9 (patch)
treeacca98e59a64df33ef7273b374264eaed86737e1 /compiler/GHC/Data
parent634da448dd9296297eeb98f9552bc256b373a6f5 (diff)
downloadhaskell-311251543f2e37af4a121e58028bfc46267a7fc9.tar.gz
Export pprTrace and friends from GHC.Prelude.
Introduces GHC.Prelude.Basic which can be used in modules which are a dependency of the ppr code.
Diffstat (limited to 'compiler/GHC/Data')
-rw-r--r--compiler/GHC/Data/Bool.hs2
-rw-r--r--compiler/GHC/Data/FastMutInt.hs2
-rw-r--r--compiler/GHC/Data/FastString.hs2
-rw-r--r--compiler/GHC/Data/List/SetOps.hs1
4 files changed, 3 insertions, 4 deletions
diff --git a/compiler/GHC/Data/Bool.hs b/compiler/GHC/Data/Bool.hs
index ab38f8fe78..b82658120f 100644
--- a/compiler/GHC/Data/Bool.hs
+++ b/compiler/GHC/Data/Bool.hs
@@ -4,7 +4,7 @@ module GHC.Data.Bool
)
where
-import GHC.Prelude
+import GHC.Prelude.Basic
data OverridingBool
= Auto
diff --git a/compiler/GHC/Data/FastMutInt.hs b/compiler/GHC/Data/FastMutInt.hs
index 3b78966577..aebc1dd028 100644
--- a/compiler/GHC/Data/FastMutInt.hs
+++ b/compiler/GHC/Data/FastMutInt.hs
@@ -13,7 +13,7 @@ module GHC.Data.FastMutInt(
atomicFetchAddFastMut
) where
-import GHC.Prelude
+import GHC.Prelude.Basic
import GHC.Base
diff --git a/compiler/GHC/Data/FastString.hs b/compiler/GHC/Data/FastString.hs
index 98814fa6b3..53fd8e63b0 100644
--- a/compiler/GHC/Data/FastString.hs
+++ b/compiler/GHC/Data/FastString.hs
@@ -108,7 +108,7 @@ module GHC.Data.FastString
lengthPS
) where
-import GHC.Prelude as Prelude
+import GHC.Prelude.Basic as Prelude
import GHC.Utils.Encoding
import GHC.Utils.IO.Unsafe
diff --git a/compiler/GHC/Data/List/SetOps.hs b/compiler/GHC/Data/List/SetOps.hs
index dff41991da..99bf2fe903 100644
--- a/compiler/GHC/Data/List/SetOps.hs
+++ b/compiler/GHC/Data/List/SetOps.hs
@@ -33,7 +33,6 @@ import GHC.Prelude
import GHC.Utils.Outputable
import GHC.Utils.Panic
import GHC.Utils.Misc
-import GHC.Utils.Trace
import qualified Data.List as L
import qualified Data.List.NonEmpty as NE