Added Lamdera alternative implementation fo HTML generation only when building Lamdera project, not regular Elm.

rupertlssmith · supermario · commit b6743992cd27 · 2025-08-09T15:21:16.000+10:00
diff --git a/compiler/src/Generate/Html.hs b/compiler/src/Generate/Html.hs
@@ -17,9 +17,50 @@ import qualified Lamdera.UiSourceMap
 
 -- SANDWICH
 
-
+-- @LAMDERA root :: FilePath parameter added.
 sandwich :: FilePath -> Name.Name -> B.Builder -> B.Builder
 sandwich root moduleName javascript =
+  Lamdera.alternativeImplementationWhen Lamdera.isLamdera_ (sandwich_ root moduleName javascript) $
+  let name = Name.toBuilder moduleName in
+  [r|<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>|] <> name <> [r|</title>
+  <style>body { padding: 0; margin: 0; }</style>
+</head>
+
+<body>
+
+<pre id="elm"></pre>
+
+<script>
+try {
+|] <> javascript <> [r|
+
+  var app = Elm.|] <> name <> [r|.init({ node: document.getElementById("elm") });
+}
+catch (e)
+{
+  // display initialization errors (e.g. bad flags, infinite recursion)
+  var header = document.createElement("h1");
+  header.style.fontFamily = "monospace";
+  header.innerText = "Initialization Error";
+  var pre = document.getElementById("elm");
+  document.body.insertBefore(header, pre);
+  pre.innerText = e;
+  throw e;
+}
+</script>
+
+</body>
+</html>|]
+
+
+-- @LAMDERA
+
+sandwich_ :: FilePath -> Name.Name -> B.Builder -> B.Builder
+sandwich_ root moduleName javascript =
   let
     name = Name.toBuilder moduleName
 
