Commit 432b38b6 authored by Thomas Schilling's avatar Thomas Schilling

Fix Haddock errors.

parent dbc1ed7e
......@@ -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)
......
......@@ -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 }
--------------------------------------------------
......
......@@ -58,11 +58,11 @@ import Literal ( inCharRange )
\end{code}
*********************************************************
* *
%*********************************************************
%* *
\subsection{Patterns}
* *
*********************************************************
%* *
%*********************************************************
\begin{code}
-- externally abstract type of name makers,
......
......@@ -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',
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment