Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit a52344f4 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Put delimiters around list of auth systems

parent d3e5df30
...@@ -60,14 +60,14 @@ let make_login_box style auth = ...@@ -60,14 +60,14 @@ let make_login_box style auth =
div [ div [
pcdata "Not logged in."; pcdata "Not logged in.";
]; ];
let auth_systems = List.map (fun name -> let auth_systems =
let service = Eliom_service.preapply S.login (Some name) in S.get_auth_systems () |>
a ~service [pcdata name] () List.map (fun name ->
) (S.get_auth_systems ()) in a ~service:S.login [pcdata name] (Some name)
) |> list_join (pcdata ", ")
in
div ( div (
[ pcdata "Login: " ] @ [pcdata "Log in: ["] @ auth_systems @ [pcdata "]"]
list_join (pcdata ", ") auth_systems @
[ pcdata "." ]
); );
] ]
) )
......
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