update in binaries for λδ

[helm.git] / matita / matita / contribs / lambdadelta / bin / roles / webLWS.ml

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml b/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
index 35b658a1fed2833a921ff76da8a9562b1e843964..cef1620074b8a7aa500e2a80250b3080afb0a0b0 100644 (file)
--- a/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
+++ b/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
@@ -56,7 +56,8 @@ let string_of_request cx (opts, fi) =
     let str = KT.concat "&" (KL.map opt_map opts) in
     KP.sprintf "/%s?%s" cx str
   in
-  KP.sprintf "%s#%s" str fi
+  let fi = if fi = "" then "" else "#" ^ fi in
+  KP.sprintf "%s%s" str fi
 
 let control_input form =
   KP.printf "<input form=\"%s\" type=\"hidden\" name=\"%s\" value=\"%s\"/>"