/
Elements.purs
61 lines (41 loc) · 1.67 KB
/
Elements.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
module Pha.Elements where
import Prelude
import Pha (VDom, Prop, h, attr)
a ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
a = h "a"
br ∷ ∀msg. VDom msg
br = h "br" [] []
button ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
button = h "button"
div ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
div = h "div"
footer ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
footer = h "footer"
img ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
img = h "img"
input ∷ ∀msg. String → Array (Prop msg) → VDom msg
input t props = h "input" ([attr "type" t] <> props) []
h1 ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
h1 = h "h1"
h2 ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
h2 = h "h2"
h3 ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
h3 = h "h3"
header ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
header = h "header"
li ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
li = h "li"
p ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
p = h "p"
main ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
main = h "main"
nav ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
nav = h "nav"
ol ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
ol = h "ol"
section ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
section = h "section"
span ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
span = h "span"
ul ∷ ∀msg. Array (Prop msg) → Array (VDom msg) → VDom msg
ul = h "ul"