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)