Use +> in ToHtml (#6)

dmjio · web-flow · commit 389bfe5d2f91 · 2025-10-26T18:54:22.000-05:00
diff --git a/server/Main.hs b/server/Main.hs
@@ -137,7 +137,7 @@ instance ToHtml Page where
         , jsRef "https://buttons.github.io/buttons.js"
         , script_ [] analytics
         , jsRef "index.js"
-        , body_ [] [toView @Model x]
+        , body_ [] +> x
         ]
       ]
     ]

Original file line number	Diff line number	Diff line change
`@@ -137,7 +137,7 @@ instance ToHtml Page where`
`137`	`137`	`, jsRef "https://buttons.github.io/buttons.js"`
`138`	`138`	`, script_ [] analytics`
`139`	`139`	`, jsRef "index.js"`
`140`		`- , body_ [] [toView @Model x]`
	`140`	`+ , body_ [] +> x`
`141`	`141`	`]`
`142`	`142`	`]`
`143`	`143`	`]`