[commit: ghc] wip/all-inlinable: tidy (95dcb8b)

[git at git.haskell.org]

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

On branch  : wip/all-inlinable
Link       : http://ghc.haskell.org/trac/ghc/changeset/95dcb8bfedbd6fef7e0cbf71777f3b483d574969/ghc

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

commit 95dcb8bfedbd6fef7e0cbf71777f3b483d574969
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Fri Jan 6 13:04:34 2017 +0000

    tidy


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

95dcb8bfedbd6fef7e0cbf71777f3b483d574969
 compiler/deSugar/DsBinds.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs
index 6ebfc59..bb1dc50 100644
--- a/compiler/deSugar/DsBinds.hs
+++ b/compiler/deSugar/DsBinds.hs
@@ -361,6 +361,7 @@ makeCorePair :: DynFlags -> Id -> Bool -> Arity -> CoreExpr -> (Id, CoreExpr)
 makeCorePair dflags gbl_id is_default_method dict_arity rhs
   | is_default_method                 -- Default methods are *always* inlined
   = (gbl_id `setIdUnfolding` mkCompulsoryUnfolding rhs, rhs)
+
   | otherwise
   = case inlinePragmaSpec inline_prag of
           EmptyInlineSpec -> (gbl_id, rhs)
@@ -370,7 +371,6 @@ makeCorePair dflags gbl_id is_default_method dict_arity rhs
 
   where
     inline_prag   = idInlinePragma gbl_id
-    inline_spec   = inlinePragmaSpec inline_prag
     inlinable_unf = mkInlinableUnfolding dflags rhs
     inline_pair
        | Just arity <- inlinePragmaSat inline_prag