From 7c7749e150b56343b12ada95cae83118b6b56dc0 Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Mon, 6 Aug 2018 15:13:01 -0700
Subject: [PATCH] Use ErrorContext's Lower instance

---
 src/Control/Abstract/Modules.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Control/Abstract/Modules.hs b/src/Control/Abstract/Modules.hs
index 1ff37cae0..b57921806 100644
--- a/src/Control/Abstract/Modules.hs
+++ b/src/Control/Abstract/Modules.hs
@@ -118,7 +118,7 @@ runLoadErrorWith = runResumableWith
 throwLoadError :: Member (Resumable (BaseError (LoadError address))) effects
                => LoadError address resume
                -> Evaluator address value effects resume
-throwLoadError err = throwResumable $ BaseError (ErrorContext lowerBound lowerBound) err
+throwLoadError err = throwResumable $ BaseError lowerBound err
 
 
 -- | An error thrown when we can't resolve a module from a qualified name.