frontend: fix basetag+head (missing do)
commitfeb8a90a506f596ee251288a3ef1e5ba26d061bd
authorAli Abrar <aliabrar@gmail.com>
dateFri 16 Apr 2021, 09:36 (6 years ago)
parent004a1c5
lib/frontend/src/Obelisk/Frontend.hs+1−1
@@ -215,7 +215,7 @@ runFrontendWithConfigsAndCurrentRoute mode configs validFullEncoder frontend = d
215215 w appendHead appendBody = do
216216 rec switchover <- runRouteViewT ve switchover (_frontendMode_adjustRoute mode) $ do
217217 (switchover'', fire) <- newTriggerEvent
218− mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendHead . runConfigsT configs))) $
218+ mapRoutedT (mapSetRouteT (mapRouteToUrlT (appendHead . runConfigsT configs))) $ do
219219 -- The order here is important - baseTag has to be before headWidget!
220220 baseTag
221221 _frontend_head frontend