ccb0fcb · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Add EventWriterT to Foreign.JavaScript.Orphans, and export it from Reflex.Dom

commitccb0fcb961a58281205fcad006bffff85029db9c authorRyan Trinkle <ryan.trinkle@gmail.com> dateMon 8 May 2017, 23:44 (9 years ago) parent2bc4778

2 files changed+5−1

unifiedsplit

reflex-dom-core/src/Foreign/JavaScript/Orphans.hs+4

@@ -8,6 +8,7 @@ module Foreign.JavaScript.Orphans where

88import Control.Monad.Trans.Class (lift)

99import GHCJS.DOM.Types (MonadJSM (..))

1010import Reflex.DynamicWriter (DynamicWriterT)

11+import Reflex.EventWriter (EventWriterT)

1112import Reflex.Host.Class (HostFrame, ReflexHost)

1213import Reflex.PerformEvent.Base (PerformEventT (..))

1314import Reflex.PostBuild.Base (PostBuildT)

@@ -23,6 +24,9 @@ instance (MonadJSM (HostFrame t), ReflexHost t) => MonadJSM (PerformEventT t m)

2324instance MonadJSM m => MonadJSM (DynamicWriterT t w m) where

2425 liftJSM' = lift . liftJSM'

2526

27+instance MonadJSM m => MonadJSM (EventWriterT t w m) where

28+ liftJSM' = lift . liftJSM'

29+

2630instance MonadJSM m => MonadJSM (RequesterT t request response m) where

2731 liftJSM' = lift . liftJSM'

2832

reflex-dom/src/Reflex/Dom.hs+1−1

@@ -1,6 +1,6 @@

11module Reflex.Dom (module X) where

3+import Foreign.JavaScript.Orphans

34import Reflex.Dom.Core as X hiding (mainWidget, mainWidgetInElementById, mainWidgetWithCss,

45 mainWidgetWithHead, mainWidgetWithHead', runApp')

56import Reflex.Dom.Internal as X

6−