Fix Haddock errors.

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 2ae46bf..134a929 100644 (file)
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -776,11 +776,11 @@ lookupSigOccRn mb_names sig (L loc v)
 \end{code}
 
 
 \end{code}
 
 

-************************************************************************
-*                                                                      *
+%************************************************************************
+%*                                                                     *

 \subsection{Match}
 \subsection{Match}

-*                                                                      *
-************************************************************************
+%*                                                                     *
+%************************************************************************

 
 \begin{code}
 rnMatchGroup :: HsMatchContext Name -> MatchGroup RdrName -> RnM (MatchGroup Name, FreeVars)
 
 \begin{code}
 rnMatchGroup :: HsMatchContext Name -> MatchGroup RdrName -> RnM (MatchGroup Name, FreeVars)

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index 4d2ee53..94c90ac 100644 (file)
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -322,7 +322,7 @@ lookupFamInstDeclBndr :: Module -> Located RdrName -> RnM Name
 lookupFamInstDeclBndr mod lrdr_name@(L _ rdr_name)
   = do { mb_gre <- lookupGreRn_maybe rdr_name
        ; case mb_gre of
 lookupFamInstDeclBndr mod lrdr_name@(L _ rdr_name)
   = do { mb_gre <- lookupGreRn_maybe rdr_name
        ; case mb_gre of

-           Just gre -> returnM (gre_name gre) ;
+           Just gre -> returnM (gre_name gre)

           Nothing  -> newTopSrcBinder mod lrdr_name }
 
 --------------------------------------------------
           Nothing  -> newTopSrcBinder mod lrdr_name }
 
 --------------------------------------------------

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 42a1487..584c287 100644 (file)
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -58,11 +58,11 @@ import Literal              ( inCharRange )
 \end{code}
 
 
 \end{code}
 
 

-*********************************************************
-*                                                      *
+%*********************************************************
+%*                                                     *

 \subsection{Patterns}
 \subsection{Patterns}

-*                                                      *
-*********************************************************
+%*                                                     *
+%*********************************************************

 
 \begin{code}
 -- externally abstract type of name makers,
 
 \begin{code}
 -- externally abstract type of name makers,

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 6210a17..c86b626 100644 (file)
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -896,7 +896,7 @@ rnFamily (tydecl@TyFamily {tcdFlavour = flavour,
                           tcdLName = tycon, tcdTyVars = tyvars}) 
         bindIdxVars =
       do { checkM (isDataFlavour flavour                      -- for synonyms,
                           tcdLName = tycon, tcdTyVars = tyvars}) 
         bindIdxVars =
       do { checkM (isDataFlavour flavour                      -- for synonyms,

-                  || not (null tyvars)) $ addErr needOneIdx  -- #indexes >= 1
+                  || not (null tyvars)) $ addErr needOneIdx  -- no. of indexes >= 1

         ; bindIdxVars (family_doc tycon) tyvars $ \tyvars' -> do {
         ; tycon' <- lookupLocatedTopBndrRn tycon
         ; returnM (TyFamily {tcdFlavour = flavour, tcdLName = tycon', 
         ; bindIdxVars (family_doc tycon) tyvars $ \tyvars' -> do {
         ; tycon' <- lookupLocatedTopBndrRn tycon
         ; returnM (TyFamily {tcdFlavour = flavour, tcdLName = tycon',