Fix parseView to not drop unclosed tags (#689)

dmjio · Dec 25, 2021 · b691e8d · b691e8d
1 parent 94a384d
commit b691e8d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Miso/Html/Types.hs b/src/Miso/Html/Types.hs
@@ -252,6 +252,8 @@ parseView html = reverse (go (parseTree html) [])
     go [] xs = xs
     go (TagLeaf (TagText s) : next) views =
       go next (Text s : views)
+    go (TagLeaf (TagOpen name attrs) : next) views =
+      go (TagBranch name attrs [] : next) views
     go (TagBranch name attrs kids : next) views =
       let
         attrs' = [ P key $ A.String (fromMisoString val)