[commit: ghc] master: Comments only (4c6fcd7)

[git at git.haskell.org]

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

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

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

commit 4c6fcd7230e1d4d8e79c57823911a90d43ac7b32
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Aug 18 09:02:13 2017 +0100

    Comments only


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

4c6fcd7230e1d4d8e79c57823911a90d43ac7b32
 compiler/deSugar/DsBinds.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs
index a3e5c15..c13b2ea 100644
--- a/compiler/deSugar/DsBinds.hs
+++ b/compiler/deSugar/DsBinds.hs
@@ -356,7 +356,8 @@ dsAbsBinds dflags tyvars dicts exports
 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
+  | is_default_method    -- Default methods are *always* inlined
+                         -- See Note [INLINE and default methods] in TcInstDcls
   = (gbl_id `setIdUnfolding` mkCompulsoryUnfolding rhs, rhs)
 
   | otherwise