1
1
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00

📝 withModules.

This commit is contained in:
Rob Rix 2018-03-21 20:14:16 -04:00
parent a640fa0de3
commit 02dbaf964f

View File

@ -60,6 +60,7 @@ evaluateTerm :: MonadAnalysis term value m => term -> m value
evaluateTerm = foldSubterms analyzeTerm
-- | Run an action with the a list of 'Module's available for imports.
withModules :: MonadAnalysis term value m => [Module term] -> m a -> m a
withModules = localModuleTable . const . ModuleTable.fromList