let f post_preview post_id request = <%s! post_preview %> % let url = Format.sprintf "/delete/%s" post_id in % begin match Dream.session "nick" request with % | None -> % let redirect = Dream.to_percent_encoded url in Login to delete your post. % | Some _nick ->
<%s! Dream.form_tag ~action:url ~enctype:`Multipart_form_data request %>
% end;