Commit 8c0eca3d authored by Jan Stolarek's avatar Jan Stolarek

Add assertions

parent f30a4925
......@@ -423,7 +423,8 @@ makeInjectivityErrors
-> [CoAxBranch] -- ^ List of injectivity conflicts
-> [(SDoc, SrcSpan)]
makeInjectivityErrors tycon axiom inj conflicts
= let lhs = coAxBranchLHS axiom
= ASSERT2( any id inj, text "No injective type variables" )
let lhs = coAxBranchLHS axiom
rhs = coAxBranchRHS axiom
are_conflicts = not $ null conflicts
......
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