mirror of
https://github.com/github/semantic.git
synced 2024-11-28 10:15:55 +03:00
We don’t actually need Trace
here.
This commit is contained in:
parent
992cb0a404
commit
7eec6d7d88
@ -37,7 +37,6 @@ evaluate
|
||||
. runValueError
|
||||
. runEnvironmentError
|
||||
. runAddressError
|
||||
. runIgnoringTrace
|
||||
. runAllocator @Precise @_ @Val
|
||||
. (>>= deref . snd)
|
||||
. runEnv lowerBound
|
||||
@ -53,7 +52,6 @@ newtype SpecEff a = SpecEff
|
||||
, Exc (Return Precise)
|
||||
, Env Precise
|
||||
, Allocator Precise Val
|
||||
, Trace
|
||||
, Resumable (AddressError Precise Val)
|
||||
, Resumable (EnvironmentError Precise)
|
||||
, Resumable (ValueError Precise SpecEff)
|
||||
|
Loading…
Reference in New Issue
Block a user