git.iko.soy/reflex-dom
on develop help sign in
Fix GHCJS build
2499675Hamish Mackenzie
src/Foreign/JavaScript/TH.hs+1
compare with develop
unifiedsplit
@@ -51,6 +51,7 @@ import qualified JavaScript.TypedArray.ArrayBuffer as JSArrayBuffer
51
51
52import Data.Hashable
52import Data.Hashable
53import Data.Word
53import Data.Word
54+import Data.Coerce (coerce)
54import Foreign.C.Types
55import Foreign.C.Types
55import Foreign.Ptr
56import Foreign.Ptr
56import Text.Encoding.Z
57import Text.Encoding.Z
src/Reflex/Dom/Internal.hs+2
@@ -73,8 +73,10 @@ mainWidgetWithCss css w = runWebGUI $ \(webView, ctx) -> withWebViewSingleton (w
73
73
74type Widget x = PostBuildT Spider (ImmediateDomBuilderT Spider (WithWebView x (PerformEventT Spider (SpiderHost Global)))) --TODO: Make this more abstract --TODO: Put the WithWebView underneath PerformEventT - I think this would perform better
74type Widget x = PostBuildT Spider (ImmediateDomBuilderT Spider (WithWebView x (PerformEventT Spider (SpiderHost Global)))) --TODO: Make this more abstract --TODO: Put the WithWebView underneath PerformEventT - I think this would perform better
75
75
76+#ifndef __GHCJS__
76instance MonadJSM m => MonadJSM (PostBuildT t m) where
77instance MonadJSM m => MonadJSM (PostBuildT t m) where
77 liftJSM' = PostBuildT . liftJSM'
78 liftJSM' = PostBuildT . liftJSM'
79+#endif
78
80
79{-# INLINABLE attachWidget #-}
81{-# INLINABLE attachWidget #-}
80attachWidget :: DOM.IsElement e => e -> WebViewSingleton x -> Widget x a -> JSM a
82attachWidget :: DOM.IsElement e => e -> WebViewSingleton x -> Widget x a -> JSM a