Merge branch 'master' into feat/tokens

This commit is contained in:
Gregor Kleen 2019-04-05 22:45:23 +02:00
commit a046cc0fa9

View File

@ -66,7 +66,7 @@ campusForm :: ( RenderMessage site FormMessage
, Button site ButtonSubmit
) => AForm (HandlerT site IO) CampusLogin
campusForm = CampusLogin
<$> areq ciField (fslpI MsgCampusIdent "user.name@campus.lmu.de" & setTooltip MsgCampusIdentNote) Nothing
<$> areq ciField (fslpI MsgCampusIdent "user.name@campus.lmu.de" & setTooltip MsgCampusIdentNote & addAttr "autofocus" "") Nothing
<*> areq passwordField (fslI MsgCampusPassword) Nothing
campusLogin :: forall site.