print ("Can't find user in " ^ #file fs ^ " or " ^ realVhostFile ^ "! Taking no action.\n")
else
let
- val vhostId = if OS.Path.ext (#file spl) = SOME ".vhost_ssl" then
+ val vhostId = if OS.Path.ext (#file spl) = SOME "vhost_ssl" then
OS.Path.base (#file spl) ^ ".ssl"
else
OS.Path.base (#file spl)