Add another HTML printing test case and handle lazy HTML nodes nested under keyed nodes.

examples/escaping/app/Route/Escaping.elm

@@ -8,6 +8,7 @@ import Head
 import Head.Seo as Seo
 import Html.Styled as Html exposing (..)
 import Html.Styled.Attributes as Attr
+import Html.Styled.Keyed as HtmlKeyed
 import Html.Styled.Lazy as HtmlLazy
 import Pages.Msg
 import Pages.PageUrl exposing (PageUrl)
@@ -101,5 +102,22 @@ view maybeUrl sharedModel static =
         -- lazy and non-lazy versions render the same output
         , Html.text static.data
         , HtmlLazy.lazy (.data >> text) static
+        , [ 1 ]
+            |> List.indexedMap
+                (\index _ ->
+                    ( String.fromInt index
+                    , HtmlLazy.lazy2
+                        (\_ _ ->
+                            li []
+                                [ Html.text <|
+                                    "This is number "
+                                        ++ String.fromInt index
+                                ]
+                        )
+                        ()
+                        ()
+                    )
+                )
+            |> HtmlKeyed.ul []
         ]
     }

examples/escaping/dist/escaping/index.html

@@ -26,6 +26,6 @@
     <div><style></style><label for="note"></label><div><style>div > p {
     font-size:14px;
     color:rgb(255, 0, 0);
-}</style><div><p>Hello! 2 &gt; 1</p></div></div>&lt;script&gt;&lt;/script&gt; is unsafe in JSON unless it is escaped properly.&lt;script&gt;&lt;/script&gt; is unsafe in JSON unless it is escaped properly.</div>
+}</style><div><p>Hello! 2 &gt; 1</p></div></div>&lt;script&gt;&lt;/script&gt; is unsafe in JSON unless it is escaped properly.&lt;script&gt;&lt;/script&gt; is unsafe in JSON unless it is escaped properly.<ul><li><style></style>This is number 0</li></ul></div>
   </body>
 </html>

generator/src/build.js

@@ -563,7 +563,9 @@ async function compileCliApp(options) {
   }
 
 function forceThunks(vNode) {
-  if (typeof vNode !== "undefined" && ( (vNode.b && vNode.b.$ === virtualDomKernelConstants.nodeTypeThunk) || vNode.$ === "#2" )) {
+if ( (typeof vNode !== "undefined" && vNode.$ === "#2") // normal/debug mode
+     || (typeof vNode !== "undefined" && typeof vNode.$ === "undefined" && typeof vNode.a == "string" && typeof vNode.b == "object" ) // optimize mode
+   ) {
     // This is a tuple (the kids : List (String, Html) field of a Keyed node); recurse into the right side of the tuple
     vNode.b = forceThunks(vNode.b);
   }