@@ -56,7 +56,6 @@ module Reflex.Dom.Widget.Basic
5656 , module Reflex.Collection
5757 , module Reflex.Workflow
5858 , partitionMapBySetLT
59− , ChildResult (..)
6059 ) where
6160
6261import Reflex.Class
@@ -105,8 +104,7 @@ partitionMapBySetLT s m0 = Map.fromDistinctAscList $ go (Set.toAscList s) m0
105104 then go t geq
106105 else (Left h, lt) : go t geq
107106
108−newtype ChildResult t k a = ChildResult { unChildResult :: (a, Event t (Map k (Maybe (ChildResult t k a)))) }
109−
107+{-# INLINABLE text #-}
110108text :: DomBuilder t m => Text -> m ()
111109text t = void $ textNode $ def & textNodeConfig_initialContents .~ t
112110