@@ -17,6 +17,7 @@ import qualified Data.Name as N
1717import qualified Data.NonEmptyList as NE
1818import Snap.Core
1919import Snap.Util.FileUploads
20+import System.FilePath ((</>))
2021import qualified System.IO.Streams as Stream
2122import Text.RawString.QQ (r)
2223
@@ -316,6 +317,6 @@ loadErrorJS (A.Root root) =
316317 in
317318 BW.withScope $ \scope ->
318319 do details <- run $ Details.load Reporting.silent scope root
319− artifacts <- run $ Build.fromPaths Reporting.silent root details (NE.List "src/Errors.elm" [])
320+ artifacts <- run $ Build.fromPaths Reporting.silent root details (NE.List (root </> "src" </> "Errors.elm") [])
320321 javascript <- run $ Task.run $ Generate.prod root details artifacts
321322 return $ LBS.toStrict $ B.toLazyByteString javascript