git.iko.soy/lynxjs-elm/compiler
on master help sign in
make relative to root
cc73f0dEvan Czaplicki
worker/src/Endpoint/Compile.hs+2−1
compare with master
unifiedsplit
@@ -17,6 +17,7 @@ import qualified Data.Name as N
17import qualified Data.NonEmptyList as NE
17import qualified Data.NonEmptyList as NE
18import Snap.Core
18import Snap.Core
19import Snap.Util.FileUploads
19import Snap.Util.FileUploads
20+import System.FilePath ((</>))
20import qualified System.IO.Streams as Stream
21import qualified System.IO.Streams as Stream
21import Text.RawString.QQ (r)
22import Text.RawString.QQ (r)
22
23
@@ -316,6 +317,6 @@ loadErrorJS (A.Root root) =
316 in
317 in
317 BW.withScope $ \scope ->
318 BW.withScope $ \scope ->
318 do details <- run $ Details.load Reporting.silent scope root
319 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") [])
320 javascript <- run $ Task.run $ Generate.prod root details artifacts
321 javascript <- run $ Task.run $ Generate.prod root details artifacts
321 return $ LBS.toStrict $ B.toLazyByteString javascript
322 return $ LBS.toStrict $ B.toLazyByteString javascript