git.iko.soy/elk
on master help sign in
Simplify the Input API for basic widgets.
706d706evancz
libraries/Graphics/Input.elm+6−6
compare with master
unifiedsplit
@@ -35,19 +35,19 @@ fields : a -> { field : (FieldState -> a) -> String -> FieldState -> Element,
35
35
36empty = { string="", start=0, end=0 }
36empty = { string="", start=0, end=0 }
37
37
38−field : String -> (Signal Element, Signal FieldState)
38+field : String -> (Signal Element, Signal String)
39field placeHolder =
39field placeHolder =
40 let tfs = N.fields empty
40 let tfs = N.fields empty
41− in (lift (tfs.field id placeHolder) tfs.events, tfs.events)
41+ in (lift (tfs.field id placeHolder) tfs.events, lift .string tfs.events)
42
42
43−password : String -> (Signal Element, Signal FieldState)
43+password : String -> (Signal Element, Signal String)
44password placeHolder =
44password placeHolder =
45 let tfs = N.passwords empty
45 let tfs = N.passwords empty
46− in (lift (tfs.field id placeHolder) tfs.events, tfs.events)
46+ in (lift (tfs.field id placeHolder) tfs.events, lift .string tfs.events)
47
47
48−email : String -> (Signal Element, Signal FieldState)
48+email : String -> (Signal Element, Signal String)
49email placeHolder =
49email placeHolder =
50 let tfs = N.emails empty
50 let tfs = N.emails empty
51− in (lift (tfs.field id placeHolder) tfs.events, tfs.events)
51+ in (lift (tfs.field id placeHolder) tfs.events, lift .string tfs.events)
52
52
53-- file?
53-- file?
libraries/Native/Signal/Input.jsdeleted−4
@@ -1,4 +0,0 @@
1−
2−Elm.Native.Input = function(elm) {
3− return elm.Native.Input = {};
4−};