Fix errors pointed out by @mgold
This commit is contained in:
parent
9716a98403
commit
0dcee3ec46
1 changed files with 2 additions and 2 deletions
|
@ -1,5 +1,5 @@
|
||||||
module Graphics.Input.Field where
|
module Graphics.Input.Field where
|
||||||
{-| This library specifically addresses text fields. It uses the same genral
|
{-| This library specifically addresses text fields. It uses the same general
|
||||||
approach as the [`Graphics.Input`](Graphics-Input) module for describing an
|
approach as the [`Graphics.Input`](Graphics-Input) module for describing an
|
||||||
`Input`, so this library focuses on creating and styling text fields.
|
`Input`, so this library focuses on creating and styling text fields.
|
||||||
|
|
||||||
|
@ -110,7 +110,7 @@ to match what they have entered.
|
||||||
name = input noContent
|
name = input noContent
|
||||||
|
|
||||||
nameField : Signal Element
|
nameField : Signal Element
|
||||||
nameField = field name.handle id "Name" <~ name.signal
|
nameField = field name.handle id defaultStyle "Name" <~ name.signal
|
||||||
-}
|
-}
|
||||||
field : Handle a -> (Content -> a) -> Style -> String -> Content -> Element
|
field : Handle a -> (Content -> a) -> Style -> String -> Content -> Element
|
||||||
field = Native.Graphics.Input.field
|
field = Native.Graphics.Input.field
|
||||||
|
|
Loading…
Reference in a new issue