github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Define a getter for the module evaluator table.

Browse Source
This commit is contained in:
Rob Rix 2018-02-28 10:50:02 -05:00
parent d624686807
commit 48389d716b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Analysis/Abstract/Evaluator.hs
View File

@ -40,6 +40,10 @@ modifyModuleTable :: (Linker value -> Linker value) -> Evaluator effects value (
modifyModuleTable f = Evaluator (modify f) modifyModuleTable f = Evaluator (modify f)
askModuleEvaluatorTable :: Evaluator effects value (Linker (Evaluator effects value value))
askModuleEvaluatorTable = Evaluator ask
data Evaluator effects value a data Evaluator effects value a
= Evaluator = Evaluator
{ runEvaluator :: Members '[ Fail { runEvaluator :: Members '[ Fail