[commit: ghc] master: Follow-up to 32a9a7f514bdd33ff72a673ade (ce36115)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ce36115b369510c51f402073174d82d0d1244589/ghc

>---------------------------------------------------------------

commit ce36115b369510c51f402073174d82d0d1244589
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Tue Feb 23 23:55:23 2016 +0100

    Follow-up to 32a9a7f514bdd33ff72a673ade
    
    ...forgot to stage/add this alpha renaming to the previous commit


>---------------------------------------------------------------

ce36115b369510c51f402073174d82d0d1244589
 compiler/main/DynFlags.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 62fa936..f92cf9b 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))]