(* let home request = *) (* *) (* *) (*
*) (* <%s! Dream.csrf_tag request %> *) (* *) (* *) (*
*) (* *) (* *) (* let report files = *) (* *) (* *) (* % files |> List.iter begin fun (name, content) -> *) (* % let name = *) (* % match name with *) (* % | None -> "None" *) (* % | Some name -> name *) (* % in *) (*

<%s name %>, <%i String.length content %> bytes

*) (* % end; *) (* *) (* *) (* let uploads = *) (* [ *) (* Dream.get "/" (fun request -> *) (* Dream.html (home request)); *) (* Dream.post "/" (fun request -> *) (* match%lwt Dream.multipart request with *) (* | `Ok ["files", files] -> Dream.html (report files) *) (* | _ -> Dream.empty `Bad_Request); *) (* ] *)