From fd1cc7d8cdda8b148edd6767b83d758f5e566807 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 24 Oct 2018 10:01:55 -0400
Subject: [PATCH] Fix some other handlers.

---
 test/Control/Abstract/Evaluator/Spec.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/Control/Abstract/Evaluator/Spec.hs b/test/Control/Abstract/Evaluator/Spec.hs
index c20ab0a32..7397eef28 100644
--- a/test/Control/Abstract/Evaluator/Spec.hs
+++ b/test/Control/Abstract/Evaluator/Spec.hs
@@ -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