git.iko.soy/reflex-dom
on develop help sign in
Add EventWriterT to Foreign.JavaScript.Orphans, and export it from Reflex.Dom
ccb0fcbRyan Trinkle
reflex-dom-core/src/Foreign/JavaScript/Orphans.hs+4
compare with develop
unifiedsplit
@@ -8,6 +8,7 @@ module Foreign.JavaScript.Orphans where
8import Control.Monad.Trans.Class (lift)
8import Control.Monad.Trans.Class (lift)
9import GHCJS.DOM.Types (MonadJSM (..))
9import GHCJS.DOM.Types (MonadJSM (..))
10import Reflex.DynamicWriter (DynamicWriterT)
10import Reflex.DynamicWriter (DynamicWriterT)
11+import Reflex.EventWriter (EventWriterT)
11import Reflex.Host.Class (HostFrame, ReflexHost)
12import Reflex.Host.Class (HostFrame, ReflexHost)
12import Reflex.PerformEvent.Base (PerformEventT (..))
13import Reflex.PerformEvent.Base (PerformEventT (..))
13import Reflex.PostBuild.Base (PostBuildT)
14import Reflex.PostBuild.Base (PostBuildT)
@@ -23,6 +24,9 @@ instance (MonadJSM (HostFrame t), ReflexHost t) => MonadJSM (PerformEventT t m)
23instance MonadJSM m => MonadJSM (DynamicWriterT t w m) where
24instance MonadJSM m => MonadJSM (DynamicWriterT t w m) where
24 liftJSM' = lift . liftJSM'
25 liftJSM' = lift . liftJSM'
25
26
27+instance MonadJSM m => MonadJSM (EventWriterT t w m) where
28+ liftJSM' = lift . liftJSM'
29+
26instance MonadJSM m => MonadJSM (RequesterT t request response m) where
30instance MonadJSM m => MonadJSM (RequesterT t request response m) where
27 liftJSM' = lift . liftJSM'
31 liftJSM' = lift . liftJSM'
28
32
reflex-dom/src/Reflex/Dom.hs+1−1
@@ -1,6 +1,6 @@
1module Reflex.Dom (module X) where
1module Reflex.Dom (module X) where
2
2
3+import Foreign.JavaScript.Orphans
3import Reflex.Dom.Core as X hiding (mainWidget, mainWidgetInElementById, mainWidgetWithCss,
4import Reflex.Dom.Core as X hiding (mainWidget, mainWidgetInElementById, mainWidgetWithCss,
4 mainWidgetWithHead, mainWidgetWithHead', runApp')
5 mainWidgetWithHead, mainWidgetWithHead', runApp')
5import Reflex.Dom.Internal as X
6import Reflex.Dom.Internal as X
6−