github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

🔥 throwLoadError.

Browse Source
This commit is contained in:
Rob Rix 2018-04-30 16:41:03 -04:00
parent 216b414995
commit 2885698962
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Abstract/Evaluatable.hs
View File

@ -126,9 +126,6 @@ instance Eq1 (EvalError term) where
liftEq _ _ _ = False
throwLoadError :: (Member (Resumable (LoadError term)) effects, MonadEvaluator location term value effects m) => LoadError term resume -> m effects resume
throwLoadError = throwResumable
throwEvalError :: (Member (Resumable (EvalError value)) effects, MonadEvaluator location term value effects m) => EvalError value resume -> m effects resume
throwEvalError = throwResumable
@ -229,7 +226,7 @@ loadWith :: ( Member (Resumable (LoadError term)) effects
-> m effects (Environment location value, value)
loadWith with name = askModuleTable >>= maybeM notFound . ModuleTable.lookup name >>= evalAndCache
where
notFound = throwLoadError (LoadError name)
notFound = throwResumable (LoadError name)
evalAndCache [] = (,) emptyEnv <$> unit
evalAndCache [x] = evalAndCache' x