mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-12-28 08:34:23 +03:00
Show unsupported Crucible elt in error message.
This commit is contained in:
parent
c94f02d071
commit
ef503793b7
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user