Add an Applicative instance for Reflex.Dom.Internal.Gui, per AMP
commit9fbdadb8e9590f5890367971fccf74549e3df69f
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateSun 15 Feb 2015, 16:38 (12 years ago)
parenta08b5d3
src/Reflex/Dom/Internal.hs+1−1
@@ -53,7 +53,7 @@ data GuiEnv t h
5353 }
5454
5555--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)
5757
5858runGui :: Gui t h m a -> GuiEnv t h -> m a
5959runGui (Gui g) env = runReaderT g env