[commit: ghc] master: Comments only (52dfa61)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/52dfa616028f3ac9ffdcbe4b6342c17cf69a364f/ghc

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

commit 52dfa616028f3ac9ffdcbe4b6342c17cf69a364f
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Feb 26 17:43:31 2015 +0000

    Comments only


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

52dfa616028f3ac9ffdcbe4b6342c17cf69a364f
 compiler/typecheck/TcGenDeriv.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcGenDeriv.hs b/compiler/typecheck/TcGenDeriv.hs
index 1df57d1..188d2b6 100644
--- a/compiler/typecheck/TcGenDeriv.hs
+++ b/compiler/typecheck/TcGenDeriv.hs
@@ -1187,7 +1187,7 @@ gen_Show_binds get_fixity loc tycon
              show_arg :: RdrName -> Type -> LHsExpr RdrName
              show_arg b arg_ty
                | isUnLiftedType arg_ty
-               -- See Note [Deriving and unboxed types].
+               -- See Note [Deriving and unboxed types] in TcDeriv
                = nlHsApps compose_RDR [mk_shows_app boxed_arg,
                                        mk_showString_app postfixMod]
                | otherwise
@@ -2113,7 +2113,7 @@ box ::         String           -- The class involved
             -> LHsExpr RdrName  -- The argument
             -> Type             -- The argument type
             -> LHsExpr RdrName  -- Boxed version of the arg
--- See Note [Deriving and unboxed types]
+-- See Note [Deriving and unboxed types] in TcDeriv
 box cls_str tycon arg arg_ty = nlHsApp (nlHsVar box_con) arg
   where
     box_con = assoc_ty_id cls_str tycon boxConTbl arg_ty
@@ -2123,7 +2123,7 @@ primOrdOps :: String    -- The class involved
            -> TyCon     -- The tycon involved
            -> Type      -- The type
            -> (RdrName, RdrName, RdrName, RdrName, RdrName)  -- (lt,le,eq,ge,gt)
--- See Note [Deriving and unboxed types]
+-- See Note [Deriving and unboxed types] in TcDeriv
 primOrdOps str tycon ty = assoc_ty_id str tycon ordOpTbl ty
 
 ordOpTbl :: [(Type, (RdrName, RdrName, RdrName, RdrName, RdrName))]