Revert unintentional type parameter change in MacawEvalStmtFunc.

This commit is contained in:
Kevin Quick 2021-04-05 12:07:49 -07:00
parent ff4af631fd
commit b79e313cfc
No known key found for this signature in database
GPG Key ID: E6D7733599CC0A21

View File

@ -56,7 +56,7 @@ import qualified Data.Macaw.Symbolic.MemOps as MO
-- is given a specific instance in the architecture-specific module, -- is given a specific instance in the architecture-specific module,
-- so this cannot be expressed directly as a `C.EvalStmtFunc`. -- so this cannot be expressed directly as a `C.EvalStmtFunc`.
type MacawEvalStmtFunc f p sym exts ext = type MacawEvalStmtFunc f p sym ext =
forall rtp blocks r ctx tp'. forall rtp blocks r ctx tp'.
f (C.RegEntry sym) tp' f (C.RegEntry sym) tp'
-> C.CrucibleState p sym ext rtp blocks r ctx -> C.CrucibleState p sym ext rtp blocks r ctx