@@ -72,7 +72,7 @@ endpointV1 artifacts =
7272 endpoint artifacts $
7373 RenderTemplates
7474 { onSuccess = Html.sandwich
75− , onProblems = renderV1ProblemReport
75+ , onProblems = renderV1ProblemHtml
7676 }
7777
7878
@@ -80,8 +80,8 @@ endpointV2 :: A.Artifacts -> Snap ()
8080endpointV2 artifacts =
8181 endpoint artifacts $
8282 RenderTemplates
83− { onSuccess = renderV2SuccessReport
84− , onProblems = renderV2ProblemReport
83+ { onSuccess = renderV2SuccessHtml
84+ , onProblems = renderV2ProblemHtml
8585 }
8686
8787
@@ -189,28 +189,31 @@ checkImports interfaces imports =
189189
190190
191191
192−-- RENDER REPORT
192+-- RENDER RESULTING HTML
193193
194194
195−renderV2ProblemReport :: Help.Report -> B.Builder
196−renderV2ProblemReport report =
195+renderV1ProblemHtml :: Help.Report -> B.Builder
196+renderV1ProblemHtml report =
197197 [r|<!DOCTYPE HTML>
198198<html>
199199<head>
200200 <meta charset="UTF-8">
201− <style>body { padding: 0; margin: 0; display: none; }</style>
201+ <style>body { padding: 0; margin: 0; background-color: black; }</style>
202+ <script src="https://worker.elm-lang.org/compile/errors.js"></script>
202203</head>
203204<body>
204205 <script>
205− var errors = |] <> Encode.encodeUgly (Exit.toJson report) <> [r|;
206− window.parent.postMessage(JSON.stringify(errors), '*');
206+ var app = Elm.Errors.init({flags:|] <> Encode.encodeUgly (Exit.toJson report) <> [r|});
207+ app.ports.jumpTo.subscribe(function(region) {
208+ window.parent.postMessage(JSON.stringify(region), '*');
209+ });
207210 </script>
208211</body>
209212</html>|]
210213
211214
212−renderV2SuccessReport :: N.Name -> B.Builder -> B.Builder
213−renderV2SuccessReport moduleName javascript =
215+renderV2SuccessHtml :: N.Name -> B.Builder -> B.Builder
216+renderV2SuccessHtml moduleName javascript =
214217 let name = N.toBuilder moduleName in
215218 [r|<!DOCTYPE HTML>
216219<html>
@@ -249,21 +252,18 @@ catch (e)
249252</html>|]
250253
251254
252−renderV1ProblemReport :: Help.Report -> B.Builder
253−renderV1ProblemReport report =
255+renderV2ProblemHtml :: Help.Report -> B.Builder
256+renderV2ProblemHtml report =
254257 [r|<!DOCTYPE HTML>
255258<html>
256259<head>
257260 <meta charset="UTF-8">
258− <style>body { padding: 0; margin: 0; background-color: black; }</style>
259− <script src="https://worker.elm-lang.org/compile/errors.js"></script>
261+ <style>body { padding: 0; margin: 0; display: none; }</style>
260262</head>
261263<body>
262264 <script>
263− var app = Elm.Errors.init({flags:|] <> Encode.encodeUgly (Exit.toJson report) <> [r|});
264− app.ports.jumpTo.subscribe(function(region) {
265− window.parent.postMessage(JSON.stringify(region), '*');
266− });
265+ var errors = |] <> Encode.encodeUgly (Exit.toJson report) <> [r|;
266+ window.parent.postMessage(JSON.stringify(errors), '*');
267267 </script>
268268</body>
269269</html>|]