github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix some other handlers.

Browse Source
This commit is contained in:
Rob Rix 2018-10-24 10:01:55 -04:00
parent 780d0a478b
commit fd1cc7d8cd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/Control/Abstract/Evaluator/Spec.hs
View File

@ -45,14 +45,14 @@ evaluate
. runValueError
. runEnvironmentError
. runAddressError
. Precise.runDeref @_ @_ @Val
. Precise.runAllocator
. runDeref @_ @_ @Val
. runAllocator
. (>>= deref . snd)
. runEnv lowerBound
. runReturn
. runLoopControl
. Value.runBoolean
. Value.runFunction coerce
. runBoolean
. runFunction coerce
reassociate :: Either (SomeError exc1) (Either (SomeError exc2) (Either (SomeError exc3) result)) -> Either (SomeError (Sum '[exc3, exc2, exc1])) result
reassociate = mergeErrors . mergeErrors . mergeErrors . Right