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

Add assertions

parent f30a4925
...@@ -423,7 +423,8 @@ makeInjectivityErrors ...@@ -423,7 +423,8 @@ makeInjectivityErrors
-> [CoAxBranch] -- ^ List of injectivity conflicts -> [CoAxBranch] -- ^ List of injectivity conflicts
-> [(SDoc, SrcSpan)] -> [(SDoc, SrcSpan)]
makeInjectivityErrors tycon axiom inj conflicts 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 rhs = coAxBranchRHS axiom
are_conflicts = not $ null conflicts 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