@@ -211,9 +211,7 @@ runFrontendWithConfigsAndCurrentRoute mode configs validFullEncoder frontend = d
211 w appendHead appendBody = do
211 w appendHead appendBody = do
212 rec switchover <- runRouteViewT ve switchover (_frontendMode_adjustRoute mode) $ do
212 rec switchover <- runRouteViewT ve switchover (_frontendMode_adjustRoute mode) $ do
213 (switchover'', fire) <- newTriggerEvent
213 (switchover'', fire) <- newTriggerEvent
214− mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendHead . runConfigsT configs))) $ do
214+ mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendHead . runConfigsT configs))) $
215− -- The order here is important - baseTag has to be before headWidget!
217 _frontend_head frontend
215 _frontend_head frontend
218 mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendBody . runConfigsT configs))) $ do
216 mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendBody . runConfigsT configs))) $ do
219 _frontend_body frontend
217 _frontend_body frontend