Shpadoinkle-backend-snabbdom 0.3.0.0 → 0.3.0.1

raw patch · 3 files changed

+22/−12 lines, 3 files

Files

• Shpadoinkle-backend-snabbdom.cabal +2/−2
• Shpadoinkle/Backend/Snabbdom.hs +20/−7
• Shpadoinkle/Backend/Snabbdom/Setup.js +0/−3

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 9632527e5d742c734473889b8289030711690a4689627731bcd9a2f549837e4d+-- hash: 69cf96a52080c262156727e824b26eaebddc6ac0713edcc0f367f821161c934b  name:           Shpadoinkle-backend-snabbdom-version:        0.3.0.0+version:        0.3.0.1 synopsis:       Use the high-performance Snabbdom virtual dom library written in JavaScript. description:    Snabbdom is a battle-tested virtual DOM library for JavaScript. It's extremely fast, lean, and modular. Snabbdom's design makes Snabbdom a natural choice for a Shpadoinkle rendering backend, as it has a similar core philosophy of "just don't do much" and is friendly to purely functional binding. category:       Web

@@ -29,17 +29,23 @@   ) where  -import           Control.Category+import           Control.Category            ((.)) import           Control.Monad.Base          (MonadBase (..), liftBaseDefault) import           Control.Monad.Catch         (MonadCatch, MonadThrow)-import           Control.Monad.Reader+import           Control.Monad.Reader        (MonadIO, MonadReader (..),+                                              MonadTrans, ReaderT (..), forM_,+                                              void, (>=>)) import           Control.Monad.Trans.Control (ComposeSt, MonadBaseControl (..),                                               MonadTransControl,                                               defaultLiftBaseWith,                                               defaultRestoreM)-import           Data.FileEmbed-import           Data.Text-import           Data.Traversable+import           Data.FileEmbed              (embedStringFile)+import           Data.Text                   (Text, split)+import           Data.Traversable            (for)+import           GHCJS.DOM                   (currentDocumentUnchecked)+import           GHCJS.DOM.Document          (createElement, getBodyUnsafe)+import           GHCJS.DOM.Element           (setAttribute)+import           GHCJS.DOM.Node              (appendChild) import           Language.Javascript.JSaddle hiding (JSM, MonadJSM, liftJSM,                                               (#)) import           Prelude                     hiding (id, (.))@@ -134,7 +140,8 @@       t' <- toJSVal t       true <- toJSVal True       case k of-        "className" | t /= "" -> forM_ (split (== ' ') t) $ \u -> unsafeSetProp (toJSString u) true classesObj+        "className" | t /= "" -> forM_ (split (== ' ') t) $ \u ->+          if u == mempty then pure () else unsafeSetProp (toJSString u) true classesObj         "style"     | t /= "" -> unsafeSetProp (toJSString k) t' attrsObj         "type"      | t /= "" -> unsafeSetProp (toJSString k) t' attrsObj         "autofocus" | t /= "" -> unsafeSetProp (toJSString k) t' attrsObj@@ -211,5 +218,11 @@  -- | Get the @window.container@ DOM node produced by 'setup' (@Setup.js@). stage :: MonadJSM m => SnabbdomT a m RawNode-stage = liftJSM $ fromJSValUnchecked =<< jsg "container"+stage = liftJSM $ do+  doc <- currentDocumentUnchecked+  elm <- createElement doc ("div" :: Text)+  setAttribute elm ("id" :: Text) ("stage" :: Text)+  b <- getBodyUnsafe doc+  _ <- appendChild b elm+  RawNode <$> toJSVal elm 

@@ -27,9 +27,6 @@   window.patchh = (a,b) => patch(a,b);   window.vnode = h.default;   window.potato = (n, e) => n.elm.appendChild(e)-  window.container = document.createElement('div');-  document.body.innerHTML = "";-  document.body.appendChild(container);   cb(); }, 1000);