Commit 0eef3f31 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Comments, plus type sigs

parent b4ef814c
......@@ -131,7 +131,7 @@ data Pat id
| CoPat HsWrapper -- If co::t1 -> t2, p::t2,
-- then (CoPat co p) :: t1
(Pat id) -- Why not LPat? Ans: existing locn will do
Type
Type -- Type of whole pattern, t1
-- During desugaring a (CoPat co pat) turns into a cast with 'co' on
-- the scrutinee, followed by a match on 'pat'
\end{code}
......
......@@ -65,6 +65,7 @@ instance Ord ModulePair where
--
type ModulePairSet = FiniteMap ModulePair ()
listToSet :: [ModulePair] -> ModulePairSet
listToSet l = listToFM (zip l (repeat ()))
checkFamInstConsistency :: [Module] -> [Module] -> TcM ()
......
......@@ -584,8 +584,7 @@ tcConPat pstate con_span data_con tycon pat_ty arg_pats thing_inside
}
where
-- Split against the family tycon if the pattern constructor
-- belongs to a representation tycon.
--
-- belongs to a family instance tycon.
boxySplitTyConAppWithFamily tycon pat_ty =
traceTc traceMsg >>
case tyConFamInst_maybe tycon of
......
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