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

Follow-up to 32a9a7f5

...forgot to stage/add this alpha renaming to the previous commit
parent 32a9a7f5
......@@ -2956,12 +2956,12 @@ dynamic_flags_deps = [
-- | This is where we handle unrecognised warning flags. We only issue a warning
-- if -Wunrecognised-warning-flags is set. See Trac #11429 for context.
unrecognisedWarning :: String -> Flag (CmdLineP DynFlags)
unrecognisedWarning pfx = defFlag pfx (Prefix action)
unrecognisedWarning prefix = defFlag prefix (Prefix action)
where
action :: String -> EwM (CmdLineP DynFlags) ()
action flag = do
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]
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