[commit: ghc] wip/all-inlinable-head: Unused identifiers (9dec87e)

[git at git.haskell.org]

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

On branch  : wip/all-inlinable-head
Link       : http://ghc.haskell.org/trac/ghc/changeset/9dec87ea33e7b398db7d86a30756d1d655895e8b/ghc

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

commit 9dec87ea33e7b398db7d86a30756d1d655895e8b
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Mon Jan 9 18:24:28 2017 +0000

    Unused identifiers


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

9dec87ea33e7b398db7d86a30756d1d655895e8b
 compiler/specialise/Specialise.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs
index 9158c2b..222c585 100644
--- a/compiler/specialise/Specialise.hs
+++ b/compiler/specialise/Specialise.hs
@@ -745,13 +745,13 @@ warnMissingSpecs dflags callers
 
 wantSpecImport :: DynFlags -> Unfolding -> Bool
 -- See Note [Specialise imported INLINABLE things]
-wantSpecImport dflags unf
+wantSpecImport _dflags unf
  = case unf of
      NoUnfolding      -> False
      BootUnfolding    -> False
      OtherCon {}      -> False
      DFunUnfolding {} -> True
-     CoreUnfolding { uf_src = src, uf_guidance = _guidance } -> True
+     CoreUnfolding { uf_src = _src, uf_guidance = _guidance } -> True
 
 {-
        | gopt Opt_SpecialiseAggressively dflags -> True