@@ -35,19 +35,15 @@ readAsset path =
35compile :: IO BS.ByteString
35compile :: IO BS.ByteString
37 if True then return "TODO" else
37 if True then return "TODO" else
38− do Dir.setCurrentDirectory "ui"
38+ Dir.withCurrentDirectory ("ui" </> "browser") $
40− reporter <- Terminal.create
39+ do reporter <- Terminal.create
41− void $ Task.run reporter $
40+ void $ Task.run reporter $
42− do summary <- Project.getRoot
41+ do summary <- Project.getRoot
43− Project.compile options Nothing summary rootPaths
42+ Project.compile options Nothing summary rootPaths
45− result <- BS.readFile tempFileName
44+ result <- BS.readFile tempFileName
46− seq (BS.length result) (Dir.removeFile tempFileName)
45+ seq (BS.length result) (Dir.removeFile tempFileName)
48− Dir.setCurrentDirectory ".."
50− return result
46+ return result
53options :: Output.Options
49options :: Output.Options