@@ -77,8 +77,7 @@ 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
81− args <- Args.fromSummary summary
80+ do args <- Args.fromSummary summary
82 graph <- Crawl.crawl summary args
81 graph <- Crawl.crawl summary args
83 (dirty, ifaces) <- Plan.plan summary graph
82 (dirty, ifaces) <- Plan.plan summary graph
84 answers <- Compile.compile project ifaces dirty
83 answers <- Compile.compile project ifaces dirty