summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-05-20 08:42:00 +0100
committerMatthew Pickering <matthewtpickering@gmail.com>2021-05-20 08:44:53 +0100
commitac258cfd92be6914f56e5338455a3d75f2b9331d (patch)
treebf2f637b19f7450e311b0306274747022ee85643
parent939a56e780b7cc55cf49b52c4222e0e8061e99b1 (diff)
downloadhaskell-wip/check-exact-ann-pragmas.tar.gz
Remove ANN pragmas in check-ppr and check-exactwip/check-exact-ann-pragmas
This fixes the `devel2+werror` build combo as stage1 does not have TH enabled. ``` utils/check-exact/Preprocess.hs:51:1: error: [-Werror] Ignoring ANN annotations, because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi | 51 | {-# ANN module ("HLint: ignore Reduce duplication" :: String) #-} | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ```
-rw-r--r--utils/check-exact/Parsers.hs3
-rw-r--r--utils/check-exact/Preprocess.hs3
2 files changed, 0 insertions, 6 deletions
diff --git a/utils/check-exact/Parsers.hs b/utils/check-exact/Parsers.hs
index 93ddfd4f07..11005a05cb 100644
--- a/utils/check-exact/Parsers.hs
+++ b/utils/check-exact/Parsers.hs
@@ -65,9 +65,6 @@ import qualified GHC.Types.SrcLoc as GHC
import qualified GHC.LanguageExtensions as LangExt
-{-# ANN module "HLint: ignore Eta reduce" #-}
-{-# ANN module "HLint: ignore Redundant do" #-}
-{-# ANN module "HLint: ignore Reduce duplication" #-}
-- ---------------------------------------------------------------------
-- | Wrapper function which returns Annotations along with the parsed
diff --git a/utils/check-exact/Preprocess.hs b/utils/check-exact/Preprocess.hs
index a2d3b53f49..17ec766b20 100644
--- a/utils/check-exact/Preprocess.hs
+++ b/utils/check-exact/Preprocess.hs
@@ -46,9 +46,6 @@ import qualified Data.Set as Set
-- import Debug.Trace
--
-{-# ANN module ("HLint: ignore Eta reduce" :: String) #-}
-{-# ANN module ("HLint: ignore Redundant do" :: String) #-}
-{-# ANN module ("HLint: ignore Reduce duplication" :: String) #-}
-- ---------------------------------------------------------------------