val oldUser = findVhostUser realVhostFile
in
if (oldUser = NONE andalso #action fs <> Slave.Add)
- orelse (user = NONE andalso #action fs <> Slave.Delete) then
+ orelse (user = NONE andalso not (Slave.isDelete (#action fs))) then
print ("Can't find user in " ^ #file fs ^ " or " ^ realVhostFile ^ "! Taking no action.\n")
else
let
in
vhostsChanged := true;
case #action fs of
- Slave.Delete =>
+ Slave.Delete _ =>
let
val ldir = realLogDir oldUser
in