@@ -77,7 +77,8 @@ compileForRepl source maybeName =
78generateDocs :: Summary.Summary -> Task.Task Docs.Documentation
78generateDocs :: Summary.Summary -> Task.Task Docs.Documentation
79generateDocs summary@(Summary.Summary root project _ _ _) =
79generateDocs summary@(Summary.Summary root project _ _ _) =
80+ do Path.removeStuff root
80− do args <- Args.fromSummary summary
81+ args <- Args.fromSummary summary
81 graph <- Crawl.crawl summary args
82 graph <- Crawl.crawl summary args
82 (dirty, ifaces) <- Plan.plan summary graph
83 (dirty, ifaces) <- Plan.plan summary graph
83 answers <- Compile.compile project ifaces dirty
84 answers <- Compile.compile project ifaces dirty