Show unsupported Crucible elt in error message.

This commit is contained in:
Kevin Quick 2018-02-20 08:46:57 -08:00
parent c94f02d071
commit ef503793b7
No known key found for this signature in database
GPG Key ID: E6D7733599CC0A21

View File

@ -624,5 +624,5 @@ defaultAppEvaluator elt interps = case elt of
e1 <- addEltTH interps bv1
e2 <- addEltTH interps bv2
liftQ [| return (G.AppExpr (M.BVUrem $(natReprTH w) $(return e1) $(return e2))) |]
_ -> liftQ [| error "unsupported Crucible elt" |]
_ -> error $ "unsupported Crucible elt:" ++ show elt