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 <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
