Use new Prerender

neuron.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name: neuron
-version: 1.9.35.3
+version: 1.9.36.0
 license: AGPL-3.0-only
 copyright: 2020 Sridhar Ratnakumar
 maintainer: srid@srid.ca

src/Neuron/Cache/Type.hs

@@ -43,7 +43,7 @@ instance FromJSON NeuronCache where
 
 reflexDomGetCache ::
   ( DomBuilder t m,
-    Prerender js t m,
+    Prerender t m,
     TriggerEvent t m,
     PerformEvent t m,
     PostBuild t m,

src/Neuron/Frontend/Impulse.hs

@@ -67,7 +67,7 @@ treeMatches :: Tree (Maybe a, b) -> Bool
 treeMatches (Node (mm, _) _) = isJust mm
 
 renderImpulse ::
-  (DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m, Prerender js t m) =>
+  (DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m, Prerender t m) =>
   Dynamic t (LoadableData (SiteData, ImpulseData)) ->
   NeuronWebT t m ()
 renderImpulse dataLDyn = do

src/Neuron/Frontend/Static/Html.hs

@@ -25,13 +25,13 @@ import Relude
 
 -- | Render the given route
 renderRoutePage ::
-  forall t m js a.
+  forall t m a.
   ( DomBuilder t m,
     RawBuilder m,
     MonadHold t m,
     PostBuild t m,
     MonadFix m,
-    Prerender js t m,
+    Prerender t m,
     PerformEvent t m,
     TriggerEvent t m
   ) =>

src/Neuron/Frontend/View.hs

@@ -70,8 +70,8 @@ bodyTemplate neuronVersionM w = do
     renderBrandFooter neuronVersionM
 
 renderRouteImpulse ::
-  forall t m js.
-  (DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m, Prerender js t m) =>
+  forall t m.
+  (DomBuilder t m, PostBuild t m, MonadHold t m, MonadFix m, Prerender t m) =>
   Dynamic t (LoadableData (SiteData, ImpulseData)) ->
   NeuronWebT t m ()
 renderRouteImpulse dataLDyn = do
@@ -83,13 +83,13 @@ renderRouteImpulse dataLDyn = do
       Impulse.renderImpulse dataLDyn
 
 renderRouteZettel ::
-  forall t m js.
+  forall t m.
   ( DomBuilder t m,
     RawBuilder m,
     PostBuild t m,
     MonadHold t m,
     MonadFix m,
-    Prerender js t m
+    Prerender t m
   ) =>
   Dynamic t (LoadableData (SiteData, ZettelData)) ->
   NeuronWebT t m ()

src/Neuron/Frontend/Zettel/View.hs

@@ -45,7 +45,7 @@ renderZettel ::
     PostBuild t m,
     MonadHold t m,
     MonadFix m,
-    Prerender js t m
+    Prerender t m
   ) =>
   SiteData ->
   ZettelData ->

src/Neuron/Plugin.hs

@@ -230,16 +230,16 @@ stripSurroundingContext =
 
 -- | Render a zettel Pandoc content given its zettel data.
 elZettel ::
-  (DomBuilder t m, RawBuilder m, PostBuild t m, Prerender js t m) =>
+  (DomBuilder t m, RawBuilder m, PostBuild t m, Prerender t m) =>
   ZettelData ->
   Pandoc ->
   NeuronWebT t m ()
 elZettel zData =
   elPandoc (mkReflexDomPandocConfig zData)
 
 mkReflexDomPandocConfig ::
-  forall js t m.
-  (DomBuilder t m, RawBuilder m, PostBuild t m, Prerender js t m) =>
+  forall t m.
+  (DomBuilder t m, RawBuilder m, PostBuild t m, Prerender t m) =>
   ZettelData ->
   Config t (NeuronWebT t m) ()
 mkReflexDomPandocConfig x =