git.iko.soy/obelisk
on master help sign in
Fix PerformEvent instance for FrontendConfigsT
71013adKen Micklas
lib/executable-config/frontend/src/Obelisk/ExecutableConfig/Frontend.hs+7−1
compare with master
unifiedsplit
@@ -68,7 +68,6 @@ newtype FrontendConfigsT m a = FrontendConfigsT { unFrontendConfigsT :: ReaderT
68 , MonadSample t
68 , MonadSample t
69 , MonadTrans
69 , MonadTrans
70 , NotReady t
70 , NotReady t
71− , PerformEvent t
72 , PostBuild t
71 , PostBuild t
73 , TriggerEvent t
72 , TriggerEvent t
74 , HasDocument
73 , HasDocument
@@ -77,6 +76,13 @@ newtype FrontendConfigsT m a = FrontendConfigsT { unFrontendConfigsT :: ReaderT
77 , HasJS js
76 , HasJS js
78 )
77 )
79
78
79+instance PerformEvent t m => PerformEvent t (FrontendConfigsT m) where
80+ type Performable (FrontendConfigsT m) = FrontendConfigsT (Performable m)
81+ performEvent e = FrontendConfigsT $ ReaderT $ \configs ->
82+ performEvent $ runFrontendConfigsT configs <$> e
83+ performEvent_ e = FrontendConfigsT $ ReaderT $ \configs ->
84+ performEvent_ $ runFrontendConfigsT configs <$> e
85+
80instance Adjustable t m => Adjustable t (FrontendConfigsT m) where
86instance Adjustable t m => Adjustable t (FrontendConfigsT m) where
81 runWithReplace a e = FrontendConfigsT $ runWithReplace (unFrontendConfigsT a) (unFrontendConfigsT <$> e)
87 runWithReplace a e = FrontendConfigsT $ runWithReplace (unFrontendConfigsT a) (unFrontendConfigsT <$> e)
82 traverseDMapWithKeyWithAdjust f m e = FrontendConfigsT $ traverseDMapWithKeyWithAdjust (\k v -> unFrontendConfigsT $ f k v) m e
88 traverseDMapWithKeyWithAdjust f m e = FrontendConfigsT $ traverseDMapWithKeyWithAdjust (\k v -> unFrontendConfigsT $ f k v) m e