\end{code}
-************************************************************************
-* *
+%************************************************************************
+%* *
\subsection{Match}
-* *
-************************************************************************
+%* *
+%************************************************************************
\begin{code}
rnMatchGroup :: HsMatchContext Name -> MatchGroup RdrName -> RnM (MatchGroup Name, FreeVars)
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 }
--------------------------------------------------
\end{code}
-*********************************************************
-* *
+%*********************************************************
+%* *
\subsection{Patterns}
-* *
-*********************************************************
+%* *
+%*********************************************************
\begin{code}
-- externally abstract type of name makers,
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',