Filter [Node] zu [Element] mit ghcjs-dom

Question

Ich benutze ghcjs-dom. Wie kann ich die Elemente aus einem Array von Knoten filtern?

import GHCJS.DOM.Types 

nodesToElements :: [Node] -> [Element] 
nodesToElements = ?? 

oder

nodesToElements :: [Node] -> IO [Element] 
nodesToElements = ?? 

Answer 1

import GHCJS.DOM.Types 
import Data.Maybe (mapMaybe) 

nodeToElement :: Node -> Maybe Element 
nodeToElement node = if node `isA` gTypeElement 
        then Just $ castToElement node 
        else Nothing 

nodesToElements :: [Node] -> [Element] 
nodesToElements = mapMaybe nodeToElement