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 throwTypeError.

Browse Source
This commit is contained in:
Rob Rix 2018-10-22 12:26:54 -04:00
parent aba2afece7
commit 0960f0cd9e
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/Value/Type.hs
View File

@ -99,9 +99,10 @@ throwTypeError :: ( Member (Resumable (BaseError TypeError)) sig
, Member (Reader ModuleInfo) sig , Member (Reader ModuleInfo) sig
, Member (Reader Span) sig , Member (Reader Span) sig
, Carrier sig m , Carrier sig m
, Monad m
) )
=> TypeError resume => TypeError resume
-> Evaluator term address Type m resume -> m resume
throwTypeError = throwBaseError throwTypeError = throwBaseError
runTypeMap :: (Carrier sig m, Effect sig) runTypeMap :: (Carrier sig m, Effect sig)