diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-02-26 17:43:31 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-03-02 16:31:09 +0000 |
| commit | 52dfa616028f3ac9ffdcbe4b6342c17cf69a364f (patch) | |
| tree | c912aafb4dc351a9486402fcc363533ec914e763 /compiler | |
| parent | 104c0ad53d4d5b6ea5ee67e04eb7943f5f0d4899 (diff) | |
| download | haskell-52dfa616028f3ac9ffdcbe4b6342c17cf69a364f.tar.gz | |
Comments only
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcGenDeriv.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/typecheck/TcGenDeriv.hs b/compiler/typecheck/TcGenDeriv.hs index 1df57d1197..188d2b635a 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))] |