on master help sign in
Rename routeEncoder in runRouteViewT
commit6910136d44fcde52fe45f369fa1d0b2e6d7399a8 authorRyan Trinkle <ryan.trinkle@gmail.com> dateTue 3 Jul 2018, 15:24 (8 years ago) parent77279ee
1 file changed+2−2
lib/route/src/Obelisk/Route/Frontend.hs+2−2
lib/route/src/Obelisk/Route/Frontend.hs+2−2
@@ -159,9 +159,9 @@ runRouteViewT
159159 -> (Text -> R r) -- ^ 404 page
160160 -> RoutedT t (R r) (EventWriterT t (Endo (R r)) m) a
161161 -> m a
162−runRouteViewT routeEncoder routeRestEncoder routeToTitle error404 a = do
162+runRouteViewT routeComponentEncoder routeRestEncoder routeToTitle error404 a = do
163163 rec historyState <- manageHistory $ HistoryCommand_PushState <$> setState
164− let Right myEncoder = checkEncoder $ obeliskRouteEncoder routeEncoder routeRestEncoder . Encoder (pure $ prismValidEncoder $ rPrism _ObeliskRoute_App)
164+ let Right myEncoder = checkEncoder $ obeliskRouteEncoder routeComponentEncoder routeRestEncoder . Encoder (pure $ prismValidEncoder $ rPrism _ObeliskRoute_App)
165165 route :: Dynamic t (R r)
166166 route = fmap (runIdentity . _validEncoder_decode (catchValidEncoder error404 $ pageNameValidEncoder . myEncoder) . (uriPath &&& uriQuery) . _historyItem_uri) historyState
167167 (result, changeState) <- runEventWriterT $ runRoutedT a route