summaryrefslogtreecommitdiff
path: root/compiler/GHC/Stg
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2021-05-07 15:55:04 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-05-12 21:41:44 -0400
commit67a5a91ef5e61f3b3c84481d8a396ed48cd5d96e (patch)
tree109ee95b75507cd49355135d53da2dbc9d9231cb /compiler/GHC/Stg
parent0ef119071347f7bc14f0fa89904b0cfd0b230ac1 (diff)
downloadhaskell-67a5a91ef5e61f3b3c84481d8a396ed48cd5d96e.tar.gz
Remove useless {-# LANGUAGE CPP #-} pragmas
Diffstat (limited to 'compiler/GHC/Stg')
-rw-r--r--compiler/GHC/Stg/DepAnal.hs2
-rw-r--r--compiler/GHC/Stg/Lift.hs2
-rw-r--r--compiler/GHC/Stg/Lift/Monad.hs2
-rw-r--r--compiler/GHC/Stg/Pipeline.hs2
-rw-r--r--compiler/GHC/Stg/Stats.hs2
-rw-r--r--compiler/GHC/Stg/Subst.hs2
-rw-r--r--compiler/GHC/Stg/Syntax.hs2
-rw-r--r--compiler/GHC/Stg/Unarise.hs2
8 files changed, 8 insertions, 8 deletions
diff --git a/compiler/GHC/Stg/DepAnal.hs b/compiler/GHC/Stg/DepAnal.hs
index 0e53ffcca1..74b490969a 100644
--- a/compiler/GHC/Stg/DepAnal.hs
+++ b/compiler/GHC/Stg/DepAnal.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
module GHC.Stg.DepAnal (depSortStgPgm) where
diff --git a/compiler/GHC/Stg/Lift.hs b/compiler/GHC/Stg/Lift.hs
index 5527f37165..f83ccd388f 100644
--- a/compiler/GHC/Stg/Lift.hs
+++ b/compiler/GHC/Stg/Lift.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
-- | Implements a selective lambda lifter, running late in the optimisation
-- pipeline.
diff --git a/compiler/GHC/Stg/Lift/Monad.hs b/compiler/GHC/Stg/Lift/Monad.hs
index 0671bd537e..9b29b02ba6 100644
--- a/compiler/GHC/Stg/Lift/Monad.hs
+++ b/compiler/GHC/Stg/Lift/Monad.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TypeFamilies #-}
diff --git a/compiler/GHC/Stg/Pipeline.hs b/compiler/GHC/Stg/Pipeline.hs
index 8c57ad7577..1801b28692 100644
--- a/compiler/GHC/Stg/Pipeline.hs
+++ b/compiler/GHC/Stg/Pipeline.hs
@@ -4,7 +4,7 @@
\section[SimplStg]{Driver for simplifying @STG@ programs}
-}
-{-# LANGUAGE CPP #-}
+
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeFamilies #-}
diff --git a/compiler/GHC/Stg/Stats.hs b/compiler/GHC/Stg/Stats.hs
index 485ddbf055..a4d36136bf 100644
--- a/compiler/GHC/Stg/Stats.hs
+++ b/compiler/GHC/Stg/Stats.hs
@@ -21,7 +21,7 @@ The program gather statistics about
\end{enumerate}
-}
-{-# LANGUAGE CPP #-}
+
module GHC.Stg.Stats ( showStgStats ) where
diff --git a/compiler/GHC/Stg/Subst.hs b/compiler/GHC/Stg/Subst.hs
index c5aa65c7f1..2ff09709a9 100644
--- a/compiler/GHC/Stg/Subst.hs
+++ b/compiler/GHC/Stg/Subst.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
module GHC.Stg.Subst where
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs
index 6728a3fc87..a1a1084166 100644
--- a/compiler/GHC/Stg/Syntax.hs
+++ b/compiler/GHC/Stg/Syntax.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
diff --git a/compiler/GHC/Stg/Unarise.hs b/compiler/GHC/Stg/Unarise.hs
index 014d3807a1..6b41063f9b 100644
--- a/compiler/GHC/Stg/Unarise.hs
+++ b/compiler/GHC/Stg/Unarise.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP #-}
+
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TupleSections #-}