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

Browse Source
This commit is contained in:
Rob Rix 2018-02-28 10:48:21 -05:00
parent df4b54ed11
commit 3f1db36e64
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

@ -33,6 +33,10 @@ modifyStore :: (StoreFor value -> StoreFor value) -> Evaluator effects value ()
modifyStore f = Evaluator (modify f) modifyStore f = Evaluator (modify f)
getModuleTable :: Evaluator effects value (Linker value)
getModuleTable = Evaluator get
data Evaluator effects value a data Evaluator effects value a
= Evaluator = Evaluator
{ runEvaluator :: Members '[ Fail { runEvaluator :: Members '[ Fail