@@ -69,31 +69,29 @@ subscriptions model =
6969
7070view : Model -> List (Html Msg)
7171view model =
72− [ form []
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− []
72+ [ label [] [ text "Server" ]
73+ , input
74+ [ Attr.type_ "url"
75+ , Attr.value model.server
76+ , Ev.onInput UpdateServer
77+ , Attr.attribute "autocomplete" "url"
9778 ]
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+ []
9896 , alignRight [ button [ Ev.onClick Submit ] [ text "Log in" ] ]
9997 ]