@@ -69,29 +69,31 @@ subscriptions model =
6969
7070view : Model -> List (Html Msg)
7171view model =
72− [ label [] [ text "Server" ]
73− , input
74− [ Attr.type_ "url"
75− , Attr.value model.server
76− , Ev.onInput UpdateServer
77− , Attr.attribute "autocomplete" "url"
72+ [ form [ Ev.onSubmit Submit ]
73+ [ label [] [ text "Server" ]
74+ , input
75+ [ Attr.type_ "url"
76+ , Attr.value model.server
77+ , Ev.onInput UpdateServer
78+ , Attr.attribute "autocomplete" "url"
79+ ]
80+ []
81+ , label [] [ text "Email" ]
82+ , input
83+ [ Attr.type_ "email"
84+ , Attr.value model.email
85+ , Ev.onInput UpdateEmail
86+ , Attr.attribute "autocomplete" "email"
87+ ]
88+ []
89+ , label [] [ text "Password" ]
90+ , input
91+ [ Attr.type_ "password"
92+ , Attr.value model.password
93+ , Ev.onInput UpdatePassword
94+ , Attr.attribute "autocomplete" "current-password"
95+ ]
96+ []
97+ , alignRight [ button [ Attr.type_ "submit" ] [ text "Log in" ] ]
7898 ]
79− []
80− , label [] [ text "Email" ]
81− , input
82− [ Attr.type_ "email"
83− , Attr.value model.email
84− , Ev.onInput UpdateEmail
85− , Attr.attribute "autocomplete" "email"
86− ]
87− []
88− , label [] [ text "Password" ]
89− , input
90− [ Attr.type_ "password"
91− , Attr.value model.password
92− , Ev.onInput UpdatePassword
93− , Attr.attribute "autocomplete" "current-password"
94− ]
95− []
96− , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
9799 ]