Attention une mise à jour du serveur va être effectuée le vendredi 16 avril entre 12h et 12h30. Cette mise à jour va générer une interruption du service de quelques minutes.

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

Alias to stdlib's String

parent 2008eb15
...@@ -54,7 +54,7 @@ let delete_shallow_directory dir = ...@@ -54,7 +54,7 @@ let delete_shallow_directory dir =
in in
Lwt_unix.rmdir dir Lwt_unix.rmdir dir
let concat = String.concat module PString = String
open Eliom_service open Eliom_service
open Eliom_registration open Eliom_registration
...@@ -733,7 +733,7 @@ let () = ...@@ -733,7 +733,7 @@ let () =
in in
create_file files.f_election (string_of_params G.write_wrapped_pubkey params) >> create_file files.f_election (string_of_params G.write_wrapped_pubkey params) >>
create_file files.f_metadata (string_of_metadata se.se_metadata) >> create_file files.f_metadata (string_of_metadata se.se_metadata) >>
create_file files.f_voters (concat "\n" se.se_voters) >> create_file files.f_voters (PString.concat "\n" se.se_voters) >>
Lwt_io.with_file Lwt_io.with_file
~flags:(Unix.([O_WRONLY; O_NONBLOCK; O_CREAT; O_TRUNC])) ~flags:(Unix.([O_WRONLY; O_NONBLOCK; O_CREAT; O_TRUNC]))
~perm:0o600 ~perm:0o600
......
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