From 021786f0c411a4a00830c62078ff6fed93da3aef Mon Sep 17 00:00:00 2001 From: Timothy Clem Date: Mon, 23 Apr 2018 14:09:38 -0700 Subject: [PATCH] Write out loaded project for debugging --- src/Semantic/Graph.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Semantic/Graph.hs b/src/Semantic/Graph.hs index 89e63e218..56e7276b3 100644 --- a/src/Semantic/Graph.hs +++ b/src/Semantic/Graph.hs @@ -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)