summaryrefslogtreecommitdiff
path: root/compiler/main
diff options
context:
space:
mode:
authorSasa Bogicevic <t4nt0r@protonmail.com>2018-10-15 13:47:48 -0400
committerBen Gamari <ben@smart-cactus.org>2018-10-15 17:41:48 -0400
commit0b0cb484eb0b51bf5485dfadff7cd8a079ceb16e (patch)
tree8ae642d14e0970391bf713c2a400061f45bd3c04 /compiler/main
parent846fe90464a1916df4ea72659255963a596eec84 (diff)
downloadhaskell-0b0cb484eb0b51bf5485dfadff7cd8a079ceb16e.tar.gz
Surprising error message with bang pattern
Reviewers: bgamari, alanz Reviewed By: bgamari Subscribers: sgraf, mpickering, rwbarton, thomie, carter GHC Trac Issues: #13600 Differential Revision: https://phabricator.haskell.org/D5040
Diffstat (limited to 'compiler/main')
-rw-r--r--compiler/main/DynFlags.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 3a14b29806..8cc360fce2 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -816,6 +816,7 @@ data WarningFlag =
| Opt_WarnStarIsType -- Since 8.6
| Opt_WarnStarBinder -- Since 8.6
| Opt_WarnImplicitKindVars -- Since 8.6
+ | Opt_WarnSpaceAfterBang
deriving (Eq, Show, Enum)
data Language = Haskell98 | Haskell2010
@@ -3866,6 +3867,7 @@ wWarningFlagsDeps = [
flagSpec "unrecognised-warning-flags" Opt_WarnUnrecognisedWarningFlags,
flagSpec "star-binder" Opt_WarnStarBinder,
flagSpec "star-is-type" Opt_WarnStarIsType,
+ flagSpec "missing-space-after-bang" Opt_WarnSpaceAfterBang,
flagSpec "partial-fields" Opt_WarnPartialFields ]
-- | These @-\<blah\>@ flags can all be reversed with @-no-\<blah\>@
@@ -4564,7 +4566,8 @@ standardWarnings -- see Note [Documenting warning flags]
Opt_WarnUnrecognisedWarningFlags,
Opt_WarnSimplifiableClassConstraints,
Opt_WarnStarBinder,
- Opt_WarnInaccessibleCode
+ Opt_WarnInaccessibleCode,
+ Opt_WarnSpaceAfterBang
]
-- | Things you get with -W