Follow-up to 32a9a7f514bdd33ff72a673ade
authorHerbert Valerio Riedel <hvr@gnu.org>
Tue, 23 Feb 2016 22:55:23 +0000 (23:55 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Tue, 23 Feb 2016 22:55:23 +0000 (23:55 +0100)
...forgot to stage/add this alpha renaming to the previous commit

compiler/main/DynFlags.hs

index 62fa936..f92cf9b 100644 (file)
@@ -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))]