git.iko.soy/elk
on master help sign in
Change how file paths are stored to please Windows
ae76422Evan Czaplicki
ui/terminal/src/Develop/StaticFiles.hs+6−5
compare with master
unifiedsplit
@@ -14,6 +14,7 @@ import qualified Data.ByteString as BS
14import Data.FileEmbed (bsToExp)
14import Data.FileEmbed (bsToExp)
15import qualified Data.HashMap.Strict as HM
15import qualified Data.HashMap.Strict as HM
16import Language.Haskell.TH (runIO)
16import Language.Haskell.TH (runIO)
17+import System.FilePath ((</>))
17
18
18import qualified Develop.StaticFiles.Build as Build
19import qualified Develop.StaticFiles.Build as Build
19
20
@@ -59,27 +60,27 @@ faviconPath =
59
60
60waitingPath :: FilePath
61waitingPath :: FilePath
61waitingPath =
62waitingPath =
62− "_elm/waiting.gif"
63+ "_elm" </> "waiting.gif"
63
64
64
65
65elmPath :: FilePath
66elmPath :: FilePath
66elmPath =
67elmPath =
67− "_elm/elm.js"
68+ "_elm" </> "elm.js"
68
69
69
70
70cssPath :: FilePath
71cssPath :: FilePath
71cssPath =
72cssPath =
72− "_elm/styles.css"
73+ "_elm" </> "styles.css"
73
74
74
75
75codeFontPath :: FilePath
76codeFontPath :: FilePath
76codeFontPath =
77codeFontPath =
77− "_elm/source-code-pro.ttf"
78+ "_elm" </> "source-code-pro.ttf"
78
79
79
80
80sansFontPath :: FilePath
81sansFontPath :: FilePath
81sansFontPath =
82sansFontPath =
82− "_elm/source-sans-pro.ttf"
83+ "_elm" </> "source-sans-pro.ttf"
83
84
84
85
85
86