diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:22:42 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:22:42 +0000 |
| commit | 432b38b66700d243369df5b76e5c5c01b5e197ff (patch) | |
| tree | 3b136a64a5310ea54ad9c6755cc3b2a5f54b12ae /compiler/rename | |
| parent | dbc1ed7e054a1c67cd34ff4776feea0d176e3bbb (diff) | |
| download | haskell-432b38b66700d243369df5b76e5c5c01b5e197ff.tar.gz | |
Fix Haddock errors.
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnBinds.lhs | 8 | ||||
| -rw-r--r-- | compiler/rename/RnEnv.lhs | 2 | ||||
| -rw-r--r-- | compiler/rename/RnPat.lhs | 8 | ||||
| -rw-r--r-- | compiler/rename/RnSource.lhs | 2 |
4 files changed, 10 insertions, 10 deletions
diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs index 2ae46bf0d2..134a929bef 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 4d2ee53892..94c90ac90b 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 42a14873c7..584c2870cd 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 6210a17031..c86b626495 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', |