Commit 8a0c6ed4 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix comment

parent ffdbaf3a
......@@ -759,8 +759,8 @@ tcValidInstHeadTy ty
where
tvs = mapCatMaybes get_tv tys
get_tv (NoteTy _ ty) = get_tv ty -- through synonyms
get_tv (TyVarTy tv) = Just tv -- Again, do not look
get_tv (NoteTy _ ty) = get_tv ty -- Again, do not look
get_tv (TyVarTy tv) = Just tv -- through synonyms
get_tv other = Nothing
\end{code}
......
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