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

Web_site: move Filename.concat alias to top level

parent d5a77e10
...@@ -52,6 +52,8 @@ let get_single_line x = ...@@ -52,6 +52,8 @@ let get_single_line x =
return None return None
) )
let ( / ) = Filename.concat
module Make (C : CONFIG) : SITE = struct module Make (C : CONFIG) : SITE = struct
open Eliom_service open Eliom_service
open Eliom_registration open Eliom_registration
...@@ -217,7 +219,6 @@ module Make (C : CONFIG) : SITE = struct ...@@ -217,7 +219,6 @@ module Make (C : CONFIG) : SITE = struct
Lwt_mutex.unlock registration_mutex; Lwt_mutex.unlock registration_mutex;
return None return None
) else ( ) else (
let ( / ) = Filename.concat in
let dir = C.spool_dir/uuid in let dir = C.spool_dir/uuid in
lwt metadata = lwt metadata =
Lwt_io.chars_of_file f.f_metadata |> Lwt_io.chars_of_file f.f_metadata |>
......
Supports Markdown
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