From: Thomas Schilling <nominolo@googlemail.com>
Date: Sun, 20 Jul 2008 17:22:42 +0000 (+0000)
Subject: Fix Haddock errors.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=432b38b66700d243369df5b76e5c5c01b5e197ff

Fix Haddock errors.
---

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 2ae46bf..134a929 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -776,11 +776,11 @@ lookupSigOccRn mb_names sig (L loc v)
 \end{code}
 
 
-************************************************************************
-*									*
+%************************************************************************
+%*									*
 \subsection{Match}
-*									*
-************************************************************************
+%*									*
+%************************************************************************
 
 \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
--- 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
-           Just gre -> returnM (gre_name gre) ;
+           Just gre -> returnM (gre_name gre)
 	   Nothing  -> newTopSrcBinder mod lrdr_name }
 
 --------------------------------------------------
diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 42a1487..584c287 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -58,11 +58,11 @@ import Literal		( inCharRange )
 \end{code}
 
 
-*********************************************************
-*							*
+%*********************************************************
+%*							*
 \subsection{Patterns}
-*							*
-*********************************************************
+%*							*
+%*********************************************************
 
 \begin{code}
 -- externally abstract type of name makers,
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index 6210a17..c86b626 100644
--- 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,
-		   || 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',