@@ -891,27 +891,27 @@ deriveGCompare ''Void1
891891-- and query string). See 'checkEncoder' for how to produce a checked encoder.
892892renderBackendRoute
893893 :: forall br a.
894− Encoder Identity Identity (R (Sum br a)) PageName
894+ Encoder Identity Identity (R (FullRoute br a)) PageName
895895 -> R br
896896 -> Text
897−renderBackendRoute enc = renderObeliskRoute enc . hoistR InL
897+renderBackendRoute enc = renderObeliskRoute enc . hoistR FullRoute_Backend
898898
899899-- | Renders a frontend route with the supplied checked encoder
900900renderFrontendRoute
901901 :: forall a fr.
902− Encoder Identity Identity (R (Sum a (ObeliskRoute fr))) PageName
902+ Encoder Identity Identity (R (FullRoute a fr)) PageName
903903 -> R fr
904904 -> Text
905−renderFrontendRoute enc = renderObeliskRoute enc . hoistR (InR . ObeliskRoute_App)
905+renderFrontendRoute enc = renderObeliskRoute enc . hoistR (FullRoute_Frontend . ObeliskRoute_App)
906906
907907-- | Renders a route of the form typically found in an Obelisk project
908908renderObeliskRoute
909909 :: forall a b.
910− Encoder Identity Identity (R (Sum a b)) PageName
911− -> R (Sum a b)
910+ Encoder Identity Identity (R (FullRoute a b)) PageName
911+ -> R (FullRoute a b)
912912 -> Text
913913renderObeliskRoute e r =
914− let enc :: Encoder Identity (Either Text) (R (Sum a b)) PathQuery
914+ let enc :: Encoder Identity (Either Text) (R (FullRoute a b)) PathQuery
915915 enc = (pageNameEncoder . hoistParse (pure . runIdentity) e)
916916 in (T.pack . uncurry (<>)) $ encode enc r
917917