github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

lowerBound

Browse Source
This commit is contained in:
joshvera 2018-09-18 12:34:13 -04:00
parent 906da72e54
commit e6d26ed322
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

@ -356,7 +356,7 @@ resumingLoadError :: ( Applicative (m address value effects)
=> m address value (Resumable (BaseError (LoadError address)) ': effects) a => m address value (Resumable (BaseError (LoadError address)) ': effects) a
-> m address value effects a -> m address value effects a
resumingLoadError = runLoadErrorWith (\ baseError -> traceError "LoadError" baseError *> case baseErrorException baseError of resumingLoadError = runLoadErrorWith (\ baseError -> traceError "LoadError" baseError *> case baseErrorException baseError of
ModuleNotFoundError _ -> pure (ScopeGraph.emptyGraph, (lowerBound, hole))) ModuleNotFoundError _ -> pure (lowerBound, (lowerBound, hole)))
resumingEvalError :: ( Applicative (m effects) resumingEvalError :: ( Applicative (m effects)
, Effectful m , Effectful m