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