From 9a72035f7a258a8406e87482c07a65819e99ecd0 Mon Sep 17 00:00:00 2001
From: Simon Lydell <simon.lydell@gmail.com>
Date: Sun, 26 Jan 2025 13:03:13 +0100
Subject: [PATCH 1/2] =?UTF-8?q?Add=20support=20for=20lydell=E2=80=99s=20fo?=
 =?UTF-8?q?rk=20of=20elm/virtual-dom?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 compiler/src/Generate/Html.hs |  2 +-
 extra/Lamdera/Injection.hs    | 24 +++++++++++++++++++++---
 2 files changed, 22 insertions(+), 4 deletions(-)
diff --git a/compiler/src/Generate/Html.hs b/compiler/src/Generate/Html.hs
index e41ee164..5bda6980 100644
--- a/compiler/src/Generate/Html.hs
+++ b/compiler/src/Generate/Html.hs
@@ -43,7 +43,7 @@ sandwich root moduleName javascript =
 
 <body>
 
-<pre id="elm"></pre>
+<pre data-elm id="elm"></pre>
 
 <script>
 try {
diff --git a/extra/Lamdera/Injection.hs b/extra/Lamdera/Injection.hs
index 373c7ad8..640a948c 100644
--- a/extra/Lamdera/Injection.hs
+++ b/extra/Lamdera/Injection.hs
@@ -484,6 +484,7 @@ injections outputType mode =
 
     $lamderaContainersExtensions_
 
+    var _VirtualDom_equalEvents; // For lydell’s vdom.
     function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
       {
         var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
@@ -542,10 +543,16 @@ injections outputType mode =
           };
 
           _VirtualDom_applyPatches = function(rootDomNode, oldVirtualNode, patches, eventNode) {
-            if (patches.length !== 0) {
-              _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
+            if (typeof _VirtualDom_wrap === 'function') { // For lydell’s vdom.
+              _VirtualDom_renderCount++;
+              var diffReturn = _VirtualDom_diffHelp(oldVirtualNode, patches, eventNode);
+              _VirtualDom_lastDomNode = diffReturn.w;
+            } else {
+              if (patches.length !== 0) {
+                _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
+              }
+              _VirtualDom_lastDomNode = _VirtualDom_applyPatchesHelp(rootDomNode, patches);
             }
-            _VirtualDom_lastDomNode = _VirtualDom_applyPatchesHelp(rootDomNode, patches);
             // Restore the event listeners on the <a> elements:
             var aElements = _VirtualDom_lastDomNode.getElementsByTagName('a');
             for (var i = 0; i < aElements.length; i++) {
@@ -703,6 +710,10 @@ injections outputType mode =
     function _VirtualDom_diff(x, y)
     {
       _VirtualDom_lastVNode = y;
+      if (typeof _VirtualDom_wrap === 'function') // For lydell’s vdom.
+      {
+        return y;
+      }
       var patches = [];
       _VirtualDom_diffHelp(x, y, patches, 0);
       return patches;
@@ -712,6 +723,13 @@ injections outputType mode =
     var _VirtualDom_lastDomNode = null;
     function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
     {
+      if (typeof _VirtualDom_wrap === 'function') // For lydell’s vdom.
+      {
+        _VirtualDom_renderCount++;
+        var diffReturn = _VirtualDom_diffHelp(oldVirtualNode, patches, eventNode);
+        return (_VirtualDom_lastDomNode = diffReturn.w);
+      }
+
       if (patches.length === 0)
       {
         return (_VirtualDom_lastDomNode = rootDomNode);

From bd762f9428cac5a505597344931b6a918761ece5 Mon Sep 17 00:00:00 2001
From: Simon Lydell <simon.lydell@gmail.com>
Date: Wed, 23 Apr 2025 20:12:06 +0200
Subject: [PATCH 2/2] Add latest changes from lydell/virtual-dom

---
 extra/Lamdera/Injection.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/extra/Lamdera/Injection.hs b/extra/Lamdera/Injection.hs
index 640a948c..fbc384df 100644
--- a/extra/Lamdera/Injection.hs
+++ b/extra/Lamdera/Injection.hs
@@ -545,8 +545,12 @@ injections outputType mode =
           _VirtualDom_applyPatches = function(rootDomNode, oldVirtualNode, patches, eventNode) {
             if (typeof _VirtualDom_wrap === 'function') { // For lydell’s vdom.
               _VirtualDom_renderCount++;
+              var instance = rootDomNode.elmInstance || _VirtualDom_instanceCount++;
+              _VirtualDom_instance = '_' + instance;
               var diffReturn = _VirtualDom_diffHelp(oldVirtualNode, patches, eventNode);
               _VirtualDom_lastDomNode = diffReturn.w;
+              _VirtualDom_lastDomNode.elmInstance = instance;
+              _VirtualDom_instance = '';
             } else {
               if (patches.length !== 0) {
                 _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
@@ -726,8 +730,13 @@ injections outputType mode =
       if (typeof _VirtualDom_wrap === 'function') // For lydell’s vdom.
       {
         _VirtualDom_renderCount++;
+        var instance = rootDomNode.elmInstance || _VirtualDom_instanceCount++;
+        _VirtualDom_instance = '_' + instance;
         var diffReturn = _VirtualDom_diffHelp(oldVirtualNode, patches, eventNode);
-        return (_VirtualDom_lastDomNode = diffReturn.w);
+        _VirtualDom_lastDomNode = diffReturn.w;
+        _VirtualDom_lastDomNode.elmInstance = instance;
+        _VirtualDom_instance = '';
+        return _VirtualDom_lastDomNode;
       }
 
       if (patches.length === 0)
