diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2021-05-07 15:55:04 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-12 21:41:44 -0400 |
commit | 67a5a91ef5e61f3b3c84481d8a396ed48cd5d96e (patch) | |
tree | 109ee95b75507cd49355135d53da2dbc9d9231cb /compiler/GHC/Utils | |
parent | 0ef119071347f7bc14f0fa89904b0cfd0b230ac1 (diff) | |
download | haskell-67a5a91ef5e61f3b3c84481d8a396ed48cd5d96e.tar.gz |
Remove useless {-# LANGUAGE CPP #-} pragmas
Diffstat (limited to 'compiler/GHC/Utils')
-rw-r--r-- | compiler/GHC/Utils/Binary.hs | 1 | ||||
-rw-r--r-- | compiler/GHC/Utils/Error.hs | 1 | ||||
-rw-r--r-- | compiler/GHC/Utils/Fingerprint.hs | 2 | ||||
-rw-r--r-- | compiler/GHC/Utils/IO/Unsafe.hs | 2 | ||||
-rw-r--r-- | compiler/GHC/Utils/Panic.hs | 3 | ||||
-rw-r--r-- | compiler/GHC/Utils/Panic/Plain.hs | 2 |
6 files changed, 6 insertions, 5 deletions
diff --git a/compiler/GHC/Utils/Binary.hs b/compiler/GHC/Utils/Binary.hs index 24122488a3..51918c87e3 100644 --- a/compiler/GHC/Utils/Binary.hs +++ b/compiler/GHC/Utils/Binary.hs @@ -1,3 +1,4 @@ + {-# LANGUAGE CPP #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE PolyKinds #-} diff --git a/compiler/GHC/Utils/Error.hs b/compiler/GHC/Utils/Error.hs index 4f681861c2..a5eccbd7de 100644 --- a/compiler/GHC/Utils/Error.hs +++ b/compiler/GHC/Utils/Error.hs @@ -1,5 +1,4 @@ {-# LANGUAGE BangPatterns #-} -{-# LANGUAGE CPP #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ViewPatterns #-} diff --git a/compiler/GHC/Utils/Fingerprint.hs b/compiler/GHC/Utils/Fingerprint.hs index c52dc4ed94..95f510ac48 100644 --- a/compiler/GHC/Utils/Fingerprint.hs +++ b/compiler/GHC/Utils/Fingerprint.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE CPP #-} + {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} -- ---------------------------------------------------------------------------- diff --git a/compiler/GHC/Utils/IO/Unsafe.hs b/compiler/GHC/Utils/IO/Unsafe.hs index 40872d43b9..4adf71bd11 100644 --- a/compiler/GHC/Utils/IO/Unsafe.hs +++ b/compiler/GHC/Utils/IO/Unsafe.hs @@ -2,7 +2,7 @@ (c) The University of Glasgow, 2000-2006 -} -{-# LANGUAGE CPP, MagicHash, UnboxedTuples #-} +{-# LANGUAGE MagicHash, UnboxedTuples #-} module GHC.Utils.IO.Unsafe ( inlinePerformIO, diff --git a/compiler/GHC/Utils/Panic.hs b/compiler/GHC/Utils/Panic.hs index d55cb7b186..fb72886be7 100644 --- a/compiler/GHC/Utils/Panic.hs +++ b/compiler/GHC/Utils/Panic.hs @@ -4,7 +4,8 @@ -} -{-# LANGUAGE CPP, ScopedTypeVariables, LambdaCase #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE ScopedTypeVariables, LambdaCase #-} -- | Defines basic functions for printing error messages. -- diff --git a/compiler/GHC/Utils/Panic/Plain.hs b/compiler/GHC/Utils/Panic/Plain.hs index a058f0e0b3..709bbaf152 100644 --- a/compiler/GHC/Utils/Panic/Plain.hs +++ b/compiler/GHC/Utils/Panic/Plain.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE CPP, ScopedTypeVariables, LambdaCase #-} +{-# LANGUAGE ScopedTypeVariables, LambdaCase #-} -- | Defines a simple exception type and utilities to throw it. The -- 'PlainGhcException' type is a subset of the 'GHC.Utils.Panic.GhcException' |