end
fun add app =
- ignore (C.dml (getDb ()) ($`UPDATE MemberApp
- SET status = 4
- WHERE id = ^(C.intToSql app)`))
+ let
+ val appR = lookupApp app
+ in
+ ignore (C.dml (getDb ()) ($`UPDATE MemberApp
+ SET status = 4
+ WHERE id = ^(C.intToSql app)`));
+ OS.FileSys.remove (Config.passwordFiles ^ #name appR)
+ end
fun welcome app =
let