Commit 0d5f4b7a authored by Stephane Glondu's avatar Stephane Glondu

Web_site: move Filename.concat alias to top level

parent d5a77e10
......@@ -52,6 +52,8 @@ let get_single_line x =
return None
)
let ( / ) = Filename.concat
module Make (C : CONFIG) : SITE = struct
open Eliom_service
open Eliom_registration
......@@ -217,7 +219,6 @@ module Make (C : CONFIG) : SITE = struct
Lwt_mutex.unlock registration_mutex;
return None
) else (
let ( / ) = Filename.concat in
let dir = C.spool_dir/uuid in
lwt metadata =
Lwt_io.chars_of_file f.f_metadata |>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment