github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

add value param to LoadError

Browse Source
This commit is contained in:
joshvera 2018-11-01 22:28:45 -04:00
parent 069a50a634
commit 4870936047
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/Semantic/Graph.hs
View File

@ -342,7 +342,7 @@ resumingLoadError :: ( AbstractHole value
, Member Trace sig
, Ord address
)
=> Evaluator term address value (ResumableWithC (BaseError (LoadError address)) (Eff m)) a
=> Evaluator term address value (ResumableWithC (BaseError (LoadError address value)) (Eff m)) a
-> Evaluator term address value m a
resumingLoadError = runLoadErrorWith (\ baseError -> traceError "LoadError" baseError *> case baseErrorException baseError of
ModuleNotFoundError _ -> pure (lowerBound, hole))