[commit: ghc] wip/rae: Fix warning in Ppr (30eb9ec)

[git at git.haskell.org]

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

On branch  : wip/rae
Link       : http://ghc.haskell.org/trac/ghc/changeset/30eb9ec0208f099fb8a92347578df49b8157e333/ghc

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

commit 30eb9ec0208f099fb8a92347578df49b8157e333
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Thu Dec 18 20:25:32 2014 -0500

    Fix warning in Ppr


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

30eb9ec0208f099fb8a92347578df49b8157e333
 libraries/template-haskell/Language/Haskell/TH/Ppr.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs
index 63fa80b..4ba43f3 100644
--- a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs
+++ b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs
@@ -582,11 +582,11 @@ quoteParens d = text "'(" <> d <> text ")"
 
 -----------------------------
 instance Ppr Loc where
-  ppr (Loc { loc_module = mod
+  ppr (Loc { loc_module = md
            , loc_package = pkg
            , loc_start = (start_ln, start_col)
            , loc_end = (end_ln, end_col) })
-    = hcat [ text pkg, colon, text mod, colon
+    = hcat [ text pkg, colon, text md, colon
            , parens $ int start_ln <> comma <> int start_col
            , text "-"
            , parens $ int end_ln <> comma <> int end_col ]