github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

clean up some leftovers

Browse Source
This commit is contained in:
Charlie Somerville 2018-05-15 16:01:24 -07:00
parent f19dabc20b
commit 7042dad34a
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -247,20 +247,10 @@ evaluatePackageWith analyzeModule analyzeTerm package
. withPrelude (packagePrelude (packageBody package)) . withPrelude (packagePrelude (packageBody package))
$ traverse (uncurry evaluateEntryPoint) (ModuleTable.toPairs (packageEntryPoints (packageBody package))) $ traverse (uncurry evaluateEntryPoint) (ModuleTable.toPairs (packageEntryPoints (packageBody package)))
where where
evalModule :: Module term
-> Evaluator
location
value
(Modules location value
: State
(Gotos location value (Reader Span : Reader PackageInfo : outer))
: Reader Span : Reader PackageInfo : outer)
(Environment location value, value)
evalModule m evalModule m
= pairValueWithEnv = pairValueWithEnv
. runInModule (moduleInfo m) . runInModule (moduleInfo m)
. analyzeModule (subtermRef . moduleBody) . analyzeModule (subtermRef . moduleBody)
-- . fmap (\x -> let () = x in undefined)
$ evalTerm <$> m $ evalTerm <$> m
evalTerm term = Subterm term evalTerm term = Subterm term
(value =<< foldSubterms (analyzeTerm eval) term) (value =<< foldSubterms (analyzeTerm eval) term)