[commit: ghc] master: Comment only (eced7db)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

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

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

commit eced7db98b3a8c7050196c619b5f7427a51417fd
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jun 13 15:04:17 2011 +0100

    Comment only

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

 compiler/basicTypes/MkId.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index c691f62..b72c4be 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -442,7 +442,8 @@ mkDictSelId no_unf name clas
 		   -- for the ClassOp
 
     info | new_tycon = base_info `setInlinePragInfo` alwaysInlinePragma
-    	   	   -- See Note [Single-method classes] for why alwaysInlinePragma
+    	   	   -- See Note [Single-method classes] in TcInstDcls
+		   -- for why alwaysInlinePragma
          | otherwise = base_info  `setSpecInfo`       mkSpecInfo [rule]
 		       		  `setInlinePragInfo` neverInlinePragma
 		   -- Add a magic BuiltinRule, and never inline it