diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-05-20 08:42:00 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-22 00:08:18 -0400 |
commit | c680691252660995c09bb953a7dd046056d030a2 (patch) | |
tree | 4d88f70887adb2616f29301729554e2d6d8ab544 | |
parent | 8c871c07f538045b9bb7bba5dad4896c8def535b (diff) | |
download | haskell-c680691252660995c09bb953a7dd046056d030a2.tar.gz |
Remove ANN pragmas in check-ppr and check-exact
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.hs | 3 | ||||
-rw-r--r-- | utils/check-exact/Preprocess.hs | 3 |
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) #-} -- --------------------------------------------------------------------- |