Fix GHCJS build
commit2499675474397ad04701dddb1b29d56a44106548
authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>
dateSat 15 Oct 2016, 12:41 (10 years ago)
parentb2a30b7
src/Foreign/JavaScript/TH.hs+1
@@ -51,6 +51,7 @@ import qualified JavaScript.TypedArray.ArrayBuffer as JSArrayBuffer
5151
5252import Data.Hashable
5353import Data.Word
54+import Data.Coerce (coerce)
5455import Foreign.C.Types
5556import Foreign.Ptr
5657import Text.Encoding.Z
src/Reflex/Dom/Internal.hs+2
@@ -73,8 +73,10 @@ mainWidgetWithCss css w = runWebGUI $ \(webView, ctx) -> withWebViewSingleton (w
7373
7474type 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
7575
76+#ifndef __GHCJS__
7677instance MonadJSM m => MonadJSM (PostBuildT t m) where
7778 liftJSM' = PostBuildT . liftJSM'
79+#endif
7880
7981{-# INLINABLE attachWidget #-}
8082attachWidget :: DOM.IsElement e => e -> WebViewSingleton x -> Widget x a -> JSM a