Commit 6a9542af authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Better ASSERT message

parent 444577a0
......@@ -1239,7 +1239,7 @@ isTouchableMetaTyVarTcS tv
isFilledMetaTyVar_maybe :: TcTyVar -> TcS (Maybe Type)
isFilledMetaTyVar_maybe tv
= ASSERT( isTcTyVar tv )
= ASSERT2( isTcTyVar tv, ppr tv )
case tcTyVarDetails tv of
MetaTv { mtv_ref = ref }
-> do { cts <- wrapTcS (TcM.readTcRef ref)
......
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