diff options
Diffstat (limited to 'js/src/Main.purs')
| -rw-r--r-- | js/src/Main.purs | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/js/src/Main.purs b/js/src/Main.purs index 42db131..3e470ae 100644 --- a/js/src/Main.purs +++ b/js/src/Main.purs @@ -10,7 +10,7 @@ import DOM.Node.Types (elementToNode) as DOM import DOM.Node.Types (Node) import Prelude -import Dom (selectElement, selectElementsFrom, onInput, setValue, selectElementFrom) as Dom +import Dom (selectElement, selectElements, onInput, setValue, selectElementFrom) as Dom import EditableNumber (NumberElem) import EditableNumber (set) as EditableNumber import Number (format) as Number @@ -24,15 +24,10 @@ main = do getNumberElements :: forall e. Eff (dom :: DOM | e) (Array { tag :: String, node :: Node }) getNumberElements = do - h2 <- (map (\elem -> { tag: "h2", node: DOM.elementToNode elem})) <$> Dom.selectElement (QuerySelector "h2") - ul <- Dom.selectElement (QuerySelector "ul") - lis <- case ul of - Just elem -> do - myLis <- Dom.selectElementsFrom elem (QuerySelector "li") - pure $ map (\node -> { tag: "li", node: node }) myLis - _ -> do - pure [] - pure $ (maybeToArray h2 <> lis) + let fromElem tag elem = { tag: tag, node: DOM.elementToNode elem } + h1 <- map (fromElem "h1") <$> Dom.selectElement (QuerySelector "h1") + lis <- map (fromElem "li") <$> Dom.selectElements (QuerySelector "ul > li") + pure $ (maybeToArray h1 <> lis) onInput :: forall e. Array NumberElem -> NumberElem -> Eff (dom :: DOM | e) Unit onInput numberElems { elem, number } = do |