X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FMkId.lhs;fp=compiler%2FbasicTypes%2FMkId.lhs;h=b72c4beecf95993c4f0e687fdd8290e013db404c;hp=c691f62676f45216a3c563d4a102a610dec196a6;hb=7e95df790b34e11d7308e43dab0a7175b69b70fc;hpb=c0687066474aa4ce4912f31a5c09c1bcd673fb06

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