Use jsaddle instead of jQuery and FFI

reflex-dom-semui.cabal

@@ -41,19 +41,15 @@ library
     , containers
     , data-default
     , file-embed >= 0.0.10 && < 0.1
+    , ghcjs-base
     , ghcjs-dom
+    , jsaddle >= 0.8.0.0 && < 0.10
     , lens
     , mtl
     , reflex     >= 0.5 && < 0.6
     , reflex-dom-core >= 0.4 && < 0.5
     , text
 
-  if impl(ghcjs)
-    build-depends: ghcjs-base
-  else
-    build-depends:
-        jsaddle >= 0.8.0.0 && < 0.10
-      , lens
 
   ghc-options: -Wall -fno-warn-unused-do-bind -fno-warn-orphans
   cpp-options: -D_GHCJS_ -DGHCJS_GC_INTERVAL=60000

src/Reflex/Dom/SemanticUI/Modal.hs

@@ -18,11 +18,9 @@ module Reflex.Dom.SemanticUI.Modal where
 import           Control.Monad.Trans
 import           Data.Text (Text)
 import qualified GHCJS.DOM.Types as DOM
-#ifndef ghcjs_HOST_OS
 import           Control.Monad (void)
 import           Control.Lens.Operators ((^.))
 import           Language.Javascript.JSaddle.Object (js1, jsg1)
-#endif
 import           Reflex.Dom.Core
 ------------------------------------------------------------------------------
 
@@ -84,12 +82,6 @@ uiTriggerModalAction :: DOM.Element -> ModalBehavior -> DOM.JSM ()
 uiTriggerModalAction e beh = js_modalAction e
                         (DOM.toJSString $ modalBehaviorString beh)
 
-#ifdef ghcjs_HOST_OS
-foreign import javascript unsafe "jQuery($1)['modal']($2);"
-    js_modalAction :: DOM.Element -> DOM.JSString -> IO ()
-#else
 js_modalAction :: DOM.Element -> DOM.JSString -> DOM.JSM ()
 js_modalAction e beh =
   void $ jsg1 ("$"::Text) e ^. js1 ("modal"::Text) beh
-#endif
-