@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE RankNTypes #-}
23{-# LANGUAGE TypeFamilies #-}
34module Reflex.Dom.Internal
@@ -14,7 +15,11 @@ import Reflex.Dom.Main as Main hiding
1415import qualified Reflex.Dom.Main as Main
1516 (mainWidget, mainWidgetWithHead, mainWidgetWithCss,
1617 mainWidgetWithHead', mainWidgetInElementById, runApp')
18+#ifdef darwin_HOST_OS
19+import Language.Javascript.JSaddle.WKWebView (run)
20+#else
1721import Language.Javascript.JSaddle.WebKitGTK (run)
22+#endif
1823
1924mainWidget :: (forall x. Widget x ()) -> IO ()
2025mainWidget w = run $ Main.mainWidget w