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

Generalize throwBaseError.

Browse Source
This commit is contained in:
Rob Rix 2018-10-22 12:26:16 -04:00
parent dcc30249c4
commit aba2afece7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Abstract/BaseError.hs
View File

@ -39,9 +39,10 @@ throwBaseError :: ( Member (Resumable (BaseError exc)) sig
, Member (Reader M.ModuleInfo) sig , Member (Reader M.ModuleInfo) sig
, Member (Reader S.Span) sig , Member (Reader S.Span) sig
, Carrier sig m , Carrier sig m
, Monad m
) )
=> exc resume => exc resume
-> Evaluator term address value m resume -> m resume
throwBaseError err = do throwBaseError err = do
moduleInfo <- currentModule moduleInfo <- currentModule
span <- currentSpan span <- currentSpan