github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

🔥 a redundant identity function.

Browse Source
This commit is contained in:
Rob Rix 2019-10-22 15:09:02 -04:00
parent f54bfd181e
commit 8450c30100
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Semantic/Util.hs
View File

@ -72,13 +72,12 @@ evaluateProject' session proxy parser paths = do
package <- fmap snd <$> parsePackage parser (Project (takeDirectory (maybe "/" fst (uncons paths))) blobs lang [])
modules <- topologicalSort <$> runImportGraphToModules proxy package
trace $ "evaluating with load order: " <> show (map (modulePath . moduleInfo) modules)
pure (id @(Evaluator _ Precise (Value _ Precise) _ _)
(runModuleTable
pure (runModuleTable
(runModules (ModuleTable.modulePaths (packageModules package))
(raiseHandler (runReader (packageInfo package))
(raiseHandler (evalState (lowerBound @Span))
(raiseHandler (runReader (lowerBound @Span))
(evaluate proxy (runDomainEffects (evalTerm (withTermSpans (^. span_)))) modules)))))))
(evaluate proxy (runDomainEffects (evalTerm (withTermSpans (^. span_)))) modules))))))
either (die . displayException) pure res
parseFile, parseFileQuiet :: Parser term -> FilePath -> IO term