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

Define resumingEnvironmentError using runResumableWith.

Browse Source
This commit is contained in:
Rob Rix 2018-07-17 15:48:17 -04:00
parent 41b9fd65ca
commit 1277224795
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

@ -250,7 +250,7 @@ resumingValueError = runValueErrorWith (\ err -> trace ("ValueError: " <> pretty
ArithmeticError{} -> pure hole)
resumingEnvironmentError :: Effects effects => Evaluator (Hole (Maybe Name) address) value (Resumable (EnvironmentError (Hole (Maybe Name) address)) ': effects) a -> Evaluator (Hole (Maybe Name) address) value effects a
resumingEnvironmentError = interpret (\ (Resumable (FreeVariable name)) -> pure (Partial (Just name)))
resumingEnvironmentError = runResumableWith (\ (FreeVariable name) -> pure (Partial (Just name)))
resumingTypeError :: ( Alternative (m address Type (State TypeMap ': effects))
, Effects effects