diff options
| author | simonpj@microsoft.com <unknown> | 2008-08-21 07:49:24 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-08-21 07:49:24 +0000 |
| commit | 88fd33e7a87643660d4da16f8caf21be802bf1c1 (patch) | |
| tree | da6fdc85839a1c99c801187edb845a7e228e0ac8 | |
| parent | aceacfc45ac040b450e36626723d63cd1977ecee (diff) | |
| download | haskell-88fd33e7a87643660d4da16f8caf21be802bf1c1.tar.gz | |
Fix Haddock comments in TcGenDeriv
| -rw-r--r-- | compiler/typecheck/TcGenDeriv.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs index 2def224906..817e8136f2 100644 --- a/compiler/typecheck/TcGenDeriv.lhs +++ b/compiler/typecheck/TcGenDeriv.lhs @@ -1297,10 +1297,10 @@ genAuxBind loc (MkDataCon dc) -- $cT1 etc fixity | is_infix = infix_RDR | otherwise = prefix_RDR -mk_data_type_name :: TyCon -> RdrName -- $tT +mk_data_type_name :: TyCon -> RdrName -- "$tT" mk_data_type_name tycon = mkAuxBinderName (tyConName tycon) mkDataTOcc -mk_constr_name :: DataCon -> RdrName -- $cC +mk_constr_name :: DataCon -> RdrName -- "$cC" mk_constr_name con = mkAuxBinderName (dataConName con) mkDataCOcc \end{code} |