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