swap <[]> and <{}> syntax

[ghc-hetmet.git] / compiler / basicTypes / MkId.lhs

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index c691f62..b72c4be 100644 (file)
--- 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