diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2016-02-23 23:55:23 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-02-23 23:55:23 +0100 |
| commit | ce36115b369510c51f402073174d82d0d1244589 (patch) | |
| tree | 7c3498fe601a05d38538ad87f38c8641a0b4a1e2 | |
| parent | 32a9a7f514bdd33ff72a673ade2591e4e815be58 (diff) | |
| download | haskell-ce36115b369510c51f402073174d82d0d1244589.tar.gz | |
Follow-up to 32a9a7f514bdd33ff72a673ade
...forgot to stage/add this alpha renaming to the previous commit
| -rw-r--r-- | compiler/main/DynFlags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 62fa936bff..f92cf9beb2 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -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))] |