@@ -0,0 +1,24 @@
1+{-# LANGUAGE CPP #-}
2+{-# OPTIONS_GHC -fno-warn-orphans #-}
3+module Reflex.Dom.Orphans where
4+
5+#ifndef ghcjs_HOST_OS
6+import Control.Monad.Trans
7+import GHCJS.DOM.Types (MonadJSM (..))
8+import Reflex.DynamicWriter
9+import Reflex.EventWriter
10+import Reflex.PostBuild.Base
11+import Reflex.Requester.Base
12+
13+instance MonadJSM m => MonadJSM (DynamicWriterT t w m) where
14+ liftJSM' = lift . liftJSM'
15+
16+instance MonadJSM m => MonadJSM (EventWriterT t w m) where
17+ liftJSM' = lift . liftJSM'
18+
19+instance MonadJSM m => MonadJSM (PostBuildT t m) where
20+ liftJSM' = lift . liftJSM'
21+
22+instance MonadJSM m => MonadJSM (RequesterT t request response m) where
23+ liftJSM' = lift . liftJSM'
24+#endif