@@ -14,6 +14,7 @@ import qualified Data.ByteString as BS
1414import Data.FileEmbed (bsToExp)
1515import qualified Data.HashMap.Strict as HM
1616import Language.Haskell.TH (runIO)
17+import System.FilePath ((</>))
1718
1819import qualified Develop.StaticFiles.Build as Build
1920
@@ -59,27 +60,27 @@ faviconPath =
5960
6061waitingPath :: FilePath
6162waitingPath =
62− "_elm/waiting.gif"
63+ "_elm" </> "waiting.gif"
6364
6465
6566elmPath :: FilePath
6667elmPath =
67− "_elm/elm.js"
68+ "_elm" </> "elm.js"
6869
6970
7071cssPath :: FilePath
7172cssPath =
72− "_elm/styles.css"
73+ "_elm" </> "styles.css"
7374
7475
7576codeFontPath :: FilePath
7677codeFontPath =
77− "_elm/source-code-pro.ttf"
78+ "_elm" </> "source-code-pro.ttf"
7879
7980
8081sansFontPath :: FilePath
8182sansFontPath =
82− "_elm/source-sans-pro.ttf"
83+ "_elm" </> "source-sans-pro.ttf"
8384
8485
8586