Commit ce36115b authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺
Browse files

Follow-up to 32a9a7f5

...forgot to stage/add this alpha renaming to the previous commit
parent 32a9a7f5
...@@ -2956,12 +2956,12 @@ dynamic_flags_deps = [ ...@@ -2956,12 +2956,12 @@ dynamic_flags_deps = [
-- | This is where we handle unrecognised warning flags. We only issue a warning -- | This is where we handle unrecognised warning flags. We only issue a warning
-- if -Wunrecognised-warning-flags is set. See Trac #11429 for context. -- if -Wunrecognised-warning-flags is set. See Trac #11429 for context.
unrecognisedWarning :: String -> Flag (CmdLineP DynFlags) unrecognisedWarning :: String -> Flag (CmdLineP DynFlags)
unrecognisedWarning pfx = defFlag pfx (Prefix action) unrecognisedWarning prefix = defFlag prefix (Prefix action)
where where
action :: String -> EwM (CmdLineP DynFlags) () action :: String -> EwM (CmdLineP DynFlags) ()
action flag = do action flag = do
f <- wopt Opt_WarnUnrecognisedWarningFlags <$> liftEwM getCmdLineState f <- wopt Opt_WarnUnrecognisedWarningFlags <$> liftEwM getCmdLineState
when f $ addWarn $ "unrecognised warning flag: -" ++ pfx ++ flag when f $ addWarn $ "unrecognised warning flag: -" ++ prefix ++ flag
-- See Note [Supporting CLI completion] -- See Note [Supporting CLI completion]
package_flags_deps :: [(Deprecation, Flag (CmdLineP DynFlags))] package_flags_deps :: [(Deprecation, Flag (CmdLineP DynFlags))]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment