3702a65 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Add missing INLINE

3702a65Tom Smalley8 years ago

reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+3−2

@@ -266,8 +266,8 @@ newtype HydrationRunnerT t m a = HydrationRunnerT { unHydrationRunnerT :: StateT

266 )

267

268data HydrationState = HydrationState

269− { _hydrationState_previousNode :: Maybe Node

269+ { _hydrationState_previousNode :: !(Maybe Node)

270− , _hydrationState_failed :: Bool

270+ , _hydrationState_failed :: !Bool

271 }

272

273{-# INLINABLE localRunner #-}

@@ -658,6 +658,7 @@ instance er ~ EventResult => Default (GhcjsEventSpec er) where

658 runReaderT (defaultDomEventHandler e en) evt

659 }

660

661+{-# INLINE makeElement #-}

661makeElement :: MonadJSM m => Document -> Text -> ElementConfig er t s -> m DOM.Element

662makeElement :: MonadJSM m => Document -> Text -> ElementConfig er t s -> m DOM.Element

662makeElement doc elementTag cfg = do

663makeElement doc elementTag cfg = do

663 e <- uncheckedCastTo DOM.Element <$> case cfg ^. namespace of

664 e <- uncheckedCastTo DOM.Element <$> case cfg ^. namespace of