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

Use ErrorContext's Lower instance

Browse Source
This commit is contained in:
Rick Winfrey 2018-08-06 15:13:01 -07:00
parent 00a24473c7
commit 7c7749e150
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Abstract/Modules.hs
View File

@ -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.