@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
2{-# LANGUAGE OverloadedStrings #-}
1{-# LANGUAGE OverloadedStrings #-}
3module Develop.StaticFiles.Build
2module Develop.StaticFiles.Build
4 ( readAsset
3 ( readAsset
@@ -34,7 +33,6 @@ readAsset path =
35compile :: IO BS.ByteString
34compile :: IO BS.ByteString
37− if True then return "TODO" else
38 Dir.withCurrentDirectory ("ui" </> "browser") $
36 Dir.withCurrentDirectory ("ui" </> "browser") $
39 do reporter <- Terminal.create
37 do reporter <- Terminal.create
40 void $ Task.run reporter $
38 void $ Task.run reporter $
@@ -61,6 +59,5 @@ rootPaths :: [FilePath]
61rootPaths =
59rootPaths =
62 [ "src" </> "Errors.elm"
60 [ "src" </> "Errors.elm"
63 , "src" </> "Index.elm"
61 , "src" </> "Index.elm"
64− , "src" </> "Start.elm"
65 , "src" </> "NotFound.elm"
62 , "src" </> "NotFound.elm"