mirror of
https://github.com/github/semantic.git
synced 2025-01-09 00:56:32 +03:00
Write out loaded project for debugging
This commit is contained in:
parent
faae1a1020
commit
021786f0c4
@ -47,7 +47,8 @@ parsePackage :: Members '[Distribute WrappedTask, Files, Task] effs
|
|||||||
-> Eff effs (Package term)
|
-> Eff effs (Package term)
|
||||||
parsePackage parser preludeFile project@Project{..} = do
|
parsePackage parser preludeFile project@Project{..} = do
|
||||||
prelude <- traverse (parseModule parser Nothing) preludeFile
|
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
|
where
|
||||||
n = name (projectName project)
|
n = name (projectName project)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user