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

Write out loaded project for debugging

Browse Source
This commit is contained in:
Timothy Clem 2018-04-23 14:09:38 -07:00
parent faae1a1020
commit 021786f0c4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Semantic/Graph.hs
View File

@ -47,7 +47,8 @@ parsePackage :: Members '[Distribute WrappedTask, Files, Task] effs
-> Eff effs (Package term)
parsePackage parser preludeFile project@Project{..} = do
prelude <- traverse (parseModule parser Nothing) preludeFile
Package.fromModules n Nothing prelude <$> parseModules parser project
project <- parseModules parser project
trace ("project: " <> show project) $ pure (Package.fromModules n Nothing prelude project)
where
n = name (projectName project)