From f7d099edf137214142faba56a2cca7e156bf0921 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 14 May 2017 20:38:24 +0200
Subject: Add meat pie recipe and improve mobile view

---
 js/src/Main.purs | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'js/src/Main.purs')

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
-- 
cgit v1.2.3