[commit: template-haskell] overlapping-tyfams: Fix warning. (aeca864)

[Richard Eisenberg]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/template-haskell

On branch  : overlapping-tyfams

http://hackage.haskell.org/trac/ghc/changeset/aeca86443fd14e6dedb2b35732448d689eabdbe4

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

commit aeca86443fd14e6dedb2b35732448d689eabdbe4
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Fri Jun 21 12:46:04 2013 +0100

    Fix warning.

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

 Language/Haskell/TH/Ppr.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Language/Haskell/TH/Ppr.hs b/Language/Haskell/TH/Ppr.hs
index d7200c4..8bd3b84 100644
--- a/Language/Haskell/TH/Ppr.hs
+++ b/Language/Haskell/TH/Ppr.hs
@@ -280,7 +280,7 @@ ppr_dec isTop (TySynInstD tc (TySynEqn tys rhs))
   where
     maybeInst | isTop     = text "instance"
               | otherwise = empty
-ppr_dec isTop (ClosedTypeFamilyD tc tvs mkind eqns)
+ppr_dec _ (ClosedTypeFamilyD tc tvs mkind eqns)
   = hang (hsep [ text "type family", ppr tc, hsep (map ppr tvs), maybeKind
                , text "where" ])
       nestDepth (vcat (map ppr_eqn eqns))