diff --git a/compiler/src/Generate/Html.hs b/compiler/src/Generate/Html.hs index e41ee164..b572d050 100644 --- 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| + + + + |] <> name <> [r| + + + + + +

+
+
+
+
+|]
+
+
+-- @LAMDERA
+
+sandwich_ :: FilePath -> Name.Name -> B.Builder -> B.Builder
+sandwich_ root moduleName javascript =
   let
     name = Name.toBuilder moduleName