@@ -266,8 +266,8 @@ newtype HydrationRunnerT t m a = HydrationRunnerT { unHydrationRunnerT :: StateT
266266 )
267267
268268data HydrationState = HydrationState
269− { _hydrationState_previousNode :: Maybe Node
270− , _hydrationState_failed :: Bool
269+ { _hydrationState_previousNode :: !(Maybe Node)
270+ , _hydrationState_failed :: !Bool
271271 }
272272
273273{-# INLINABLE localRunner #-}
@@ -658,6 +658,7 @@ instance er ~ EventResult => Default (GhcjsEventSpec er) where
658658 runReaderT (defaultDomEventHandler e en) evt
659659 }
660660
661+{-# INLINE makeElement #-}
661662makeElement :: MonadJSM m => Document -> Text -> ElementConfig er t s -> m DOM.Element
662663makeElement doc elementTag cfg = do
663664 e <- uncheckedCastTo DOM.Element <$> case cfg ^. namespace of