Add nodeClear
commit4ce94d0afe35f5642e985800dd89fa457b324a07
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateThu 10 Dec 2015, 11:13 (11 years ago)
parenta10ddfd
src/Reflex/Dom/Widget/Basic.hs+9
@@ -330,6 +330,15 @@ deleteBetweenInclusive s e = do
330330 _ <- nodeRemoveChild currentParent $ Just e
331331 return ()
332332
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+
333342--------------------------------------------------------------------------------
334343-- Adapters
335344--------------------------------------------------------------------------------