1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00

Just modify for now.

This commit is contained in:
Rob Rix 2018-06-25 12:53:33 -04:00
parent 3fb45b5d50
commit 95bad99319

View File

@ -101,7 +101,8 @@ evaluate lang analyzeModule analyzeTerm modules = do
foldr (run preludeEnv) get modules
where run preludeEnv modules rest = do
evaluated <- traverse (evalModule preludeEnv) modules
localState (<> ModuleTable.fromModules (toList evaluated)) rest
modify' (<> ModuleTable.fromModules (toList evaluated))
rest
evalModule preludeEnv m
= fmap (<$ m)