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

🔥 withModules.

Browse Source
This commit is contained in:
Rob Rix 2018-03-30 19:09:37 -04:00
parent 5cf9dc20af
commit aed9457896
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Data/Abstract/Evaluatable.hs
View File

@ -9,9 +9,8 @@ module Data.Abstract.Evaluatable
, variable , variable
, evaluateTerm , evaluateTerm
, evaluateModule , evaluateModule
, evaluatePackage
, withModules
, evaluateModules , evaluateModules
, evaluatePackage
, throwLoadError , throwLoadError
, require , require
, load , load
@ -172,14 +171,6 @@ evaluateModule :: MonadEvaluatable location term value m
-> m value -> m value
evaluateModule m = analyzeModule (subtermValue . moduleBody) (fmap (Subterm <*> evaluateTerm) m) evaluateModule m = analyzeModule (subtermValue . moduleBody) (fmap (Subterm <*> evaluateTerm) m)
-- | Run an action with the a list of 'Module's available for imports.
withModules :: MonadEvaluatable location term value m
=> [Module term]
-> m a
-> m a
withModules = localModuleTable . const . ModuleTable.fromModules
-- | Evaluate with a list of modules in scope, taking the head module as the entry point. -- | Evaluate with a list of modules in scope, taking the head module as the entry point.
evaluateModules :: ( Effectful m evaluateModules :: ( Effectful m
, Member (Reader (SomeOrigin term)) effects , Member (Reader (SomeOrigin term)) effects