git.iko.soy/reflex-dom
on develop help sign in
Add an Applicative instance for Reflex.Dom.Internal.Gui, per AMP
9fbdadbRyan Trinkle
src/Reflex/Dom/Internal.hs+1−1
compare with develop
unifiedsplit
@@ -53,7 +53,7 @@ data GuiEnv t h
53 }
53 }
54
54
55--TODO: Poorly named
55--TODO: Poorly named
56−newtype Gui t h m a = Gui { unGui :: ReaderT (GuiEnv t h) m a } deriving (Functor, Monad, MonadIO, MonadFix)
56+newtype Gui t h m a = Gui { unGui :: ReaderT (GuiEnv t h) m a } deriving (Functor, Applicative, Monad, MonadIO, MonadFix)
57
57
58runGui :: Gui t h m a -> GuiEnv t h -> m a
58runGui :: Gui t h m a -> GuiEnv t h -> m a
59runGui (Gui g) env = runReaderT g env
59runGui (Gui g) env = runReaderT g env