-----------------------------------------------------------------------------
-- |
-- Module      :  Miso.Hydrate
-- Copyright   :  (C) 2016-2026 David M. Johnson
-- License     :  BSD3-style (see the file LICENSE)
-- Maintainer  :  David M. Johnson <code@dmj.io>
-- Stability   :  experimental
-- Portability :  non-portable
--
-- Functions and helpers for Virtual DOM hydration.
--
----------------------------------------------------------------------------
module Miso.Hydrate
  ( hydrate
  ) where
-----------------------------------------------------------------------------
import qualified Miso.FFI.Internal as FFI
import           Miso.Types
import           Miso.DSL
-----------------------------------------------------------------------------
-- | Hydration of a t'VTree'
hydrate :: LogLevel -> DOMRef -> VTree -> IO Bool
hydrate :: LogLevel -> DOMRef -> VTree -> IO Bool
hydrate LogLevel
loggingLevel DOMRef
domRef VTree
vtree = do
  DOMRef
jval <- VTree -> IO DOMRef
forall a. ToJSVal a => a -> IO DOMRef
toJSVal VTree
vtree
  DOMRef -> IO Bool
forall a. FromJSVal a => DOMRef -> IO a
fromJSValUnchecked (DOMRef -> IO Bool) -> IO DOMRef -> IO Bool
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<<
    Bool -> DOMRef -> DOMRef -> IO DOMRef
FFI.hydrate (LogLevel
loggingLevel LogLevel -> [LogLevel] -> Bool
forall a. Eq a => a -> [a] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [LogLevel
DebugHydrate, LogLevel
DebugAll]) DOMRef
domRef DOMRef
jval
-----------------------------------------------------------------------------