git.iko.soy/reflex-dom
on develop help sign in
Add nodeClear
4ce94d0Ryan Trinkle
src/Reflex/Dom/Widget/Basic.hs+9
compare with develop
unifiedsplit
@@ -330,6 +330,15 @@ deleteBetweenInclusive s e = do
330 _ <- nodeRemoveChild currentParent $ Just e
330 _ <- nodeRemoveChild currentParent $ Just e
331 return ()
331 return ()
332
332
333+nodeClear :: IsNode self => self -> IO ()
334+nodeClear n = do
335+ mfc <- nodeGetFirstChild n
336+ case mfc of
337+ Nothing -> return ()
338+ Just fc -> do
339+ nodeRemoveChild n $ Just fc
340+ nodeClear n
341+
333--------------------------------------------------------------------------------
342--------------------------------------------------------------------------------
334-- Adapters
343-- Adapters
335--------------------------------------------------------------------------------
344--------------------------------------------------------------------------------