X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FTyCon.lhs;h=09caf8e31cbdbe5ae3cc0921c157540d9c3bd409;hb=2cd930397966d27a221998c8ac060151e2027e90;hp=6693ca2f558b27c2b35f51f78ed67bbb694bdfcc;hpb=9484be7ae1db32847491acd354bad096f9b8b366;p=ghc-hetmet.git

diff --git a/compiler/types/TyCon.lhs b/compiler/types/TyCon.lhs
index 6693ca2..09caf8e 100644
--- a/compiler/types/TyCon.lhs
+++ b/compiler/types/TyCon.lhs
@@ -158,7 +158,7 @@ data TyCon
 
 	algTcRec :: RecFlag,		-- ^ Tells us whether the data type is part of a mutually-recursive group or not
 
-	hasGenerics :: Bool,		-- ^ Whether generic (in the -XGenerics sense) to/from functions are
+	hasGenerics :: Bool,		-- ^ Whether generic (in the -XGenerics sense) to\/from functions are
 	                                -- available in the exports of the data type's source module.
 
 	algTcParent :: TyConParent	-- ^ Gives the class or family declaration 'TyCon' for derived 'TyCon's
@@ -976,7 +976,7 @@ expand tvs rhs tys
 \end{code}
 
 \begin{code}
--- | Does this 'TyCon' have any generic to/from functions available? See also 'hasGenerics'
+-- | Does this 'TyCon' have any generic to\/from functions available? See also 'hasGenerics'
 tyConHasGenerics :: TyCon -> Bool
 tyConHasGenerics (AlgTyCon {hasGenerics = hg})   = hg
 tyConHasGenerics (TupleTyCon {hasGenerics = hg}) = hg