git.iko.soy/reflex-dom
on develop help sign in
Add INLINABLE to text, remove ChildResult
1b0a30cDivam
reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+1−3
compare with develop
unifiedsplit
@@ -56,7 +56,6 @@ module Reflex.Dom.Widget.Basic
56 , module Reflex.Collection
56 , module Reflex.Collection
57 , module Reflex.Workflow
57 , module Reflex.Workflow
58 , partitionMapBySetLT
58 , partitionMapBySetLT
59− , ChildResult (..)
60 ) where
59 ) where
61
60
62import Reflex.Class
61import Reflex.Class
@@ -105,8 +104,7 @@ partitionMapBySetLT s m0 = Map.fromDistinctAscList $ go (Set.toAscList s) m0
105 then go t geq
104 then go t geq
106 else (Left h, lt) : go t geq
105 else (Left h, lt) : go t geq
107
106
108−newtype ChildResult t k a = ChildResult { unChildResult :: (a, Event t (Map k (Maybe (ChildResult t k a)))) }
107+{-# INLINABLE text #-}
109−
110text :: DomBuilder t m => Text -> m ()
108text :: DomBuilder t m => Text -> m ()
111text t = void $ textNode $ def & textNodeConfig_initialContents .~ t
109text t = void $ textNode $ def & textNodeConfig_initialContents .~ t
112
110