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

Fix Haddock errors.

parent dbc1ed7e
...@@ -776,11 +776,11 @@ lookupSigOccRn mb_names sig (L loc v) ...@@ -776,11 +776,11 @@ lookupSigOccRn mb_names sig (L loc v)
\end{code} \end{code}
************************************************************************ %************************************************************************
* * %* *
\subsection{Match} \subsection{Match}
* * %* *
************************************************************************ %************************************************************************
\begin{code} \begin{code}
rnMatchGroup :: HsMatchContext Name -> MatchGroup RdrName -> RnM (MatchGroup Name, FreeVars) rnMatchGroup :: HsMatchContext Name -> MatchGroup RdrName -> RnM (MatchGroup Name, FreeVars)
......
...@@ -322,7 +322,7 @@ lookupFamInstDeclBndr :: Module -> Located RdrName -> RnM Name ...@@ -322,7 +322,7 @@ lookupFamInstDeclBndr :: Module -> Located RdrName -> RnM Name
lookupFamInstDeclBndr mod lrdr_name@(L _ rdr_name) lookupFamInstDeclBndr mod lrdr_name@(L _ rdr_name)
= do { mb_gre <- lookupGreRn_maybe rdr_name = do { mb_gre <- lookupGreRn_maybe rdr_name
; case mb_gre of ; 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 }
-------------------------------------------------- --------------------------------------------------
......
...@@ -58,11 +58,11 @@ import Literal ( inCharRange ) ...@@ -58,11 +58,11 @@ import Literal ( inCharRange )
\end{code} \end{code}
********************************************************* %*********************************************************
* * %* *
\subsection{Patterns} \subsection{Patterns}
* * %* *
********************************************************* %*********************************************************
\begin{code} \begin{code}
-- externally abstract type of name makers, -- externally abstract type of name makers,
......
...@@ -896,7 +896,7 @@ rnFamily (tydecl@TyFamily {tcdFlavour = flavour, ...@@ -896,7 +896,7 @@ rnFamily (tydecl@TyFamily {tcdFlavour = flavour,
tcdLName = tycon, tcdTyVars = tyvars}) tcdLName = tycon, tcdTyVars = tyvars})
bindIdxVars = bindIdxVars =
do { checkM (isDataFlavour flavour -- for synonyms, 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 { ; bindIdxVars (family_doc tycon) tyvars $ \tyvars' -> do {
; tycon' <- lookupLocatedTopBndrRn tycon ; tycon' <- lookupLocatedTopBndrRn tycon
; returnM (TyFamily {tcdFlavour = flavour, tcdLName = 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