git.iko.soy/reflex-dom
on develop help sign in
Use holdUniqDyn instead of uniqDyn
commit38e26171912e24a3dfa663ad40cc1a54780c9763 authorRyan Trinkle <ryan.trinkle@gmail.com> dateSat 27 May 2017, 09:46 (9 years ago) parent3eef4df
2 files changed+4−2
compare with develop
unifiedsplit
reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+2−1 reflex-dom-core/src/Reflex/Dom/Widget/Lazy.hs+2−1
reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+2−1
@@ -504,9 +504,10 @@ instance SupportsImmediateDomBuilder t m => DomBuilder t (ImmediateDomBuilderT t
504504 mfiles <- Input.getFiles domInputElement
505505 let getMyFiles xs = fmap catMaybes . mapM (FileList.item xs) . flip take [0..] . fromIntegral =<< FileList.getLength xs
506506 maybe (return []) getMyFiles mfiles
507+ checked <- holdUniqDyn c
507508 return $ InputElement
508509 { _inputElement_value = v
509− , _inputElement_checked = uniqDyn c
510+ , _inputElement_checked = checked
510511 , _inputElement_checkedChange = checkedChangedByUI
511512 , _inputElement_input = valueChangedByUI
512513 , _inputElement_hasFocus = hasFocus
reflex-dom-core/src/Reflex/Dom/Widget/Lazy.hs+2−1
@@ -104,7 +104,8 @@ virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBu
104104 let window = zipDynWith (findWindow rowPx) heightPx scrollPosition
105105 performEvent_ $ ffor (leftmost [setI, i0 <$ pb]) $ \i ->
106106 setScrollTop (_element_raw viewport) (i * rowPx)
107− return (uniqDyn window, result)
107+ uniqWindow <- holdUniqDyn window
108+ return (uniqWindow, result)
108109 where
109110 toStyleAttr m = "style" =: Map.foldWithKey (\k v s -> k <> ":" <> v <> ";" <> s) "" m
110111 mkViewport h = toStyleAttr $ "overflow" =: "auto" <> "position" =: "absolute" <>