let f ?email ?nick ?password request = % begin match email, nick, password with % | Some email, Some nick, Some password -> % begin match User.register ~email ~nick ~password with % | Error e -> Error: <%s e %> % | Ok _ -> User created ! % end; % | _ -> <%s! Dream.form_tag ~action:"/register" request %>