add missing cleanup call to server init

2021-01-10 05:34:13 -05:00 · 2021-01-10 05:34:13 -05:00 · b4b31436ce
parent a60f83cd16
commit b4b31436ce
1 changed files with 2 additions and 0 deletions
--- a/crossfire/server.rkt
+++ b/crossfire/server.rkt
@ -1036,6 +1036,8 @@
  (rpc-register-all server^ server-impl@)
  (init-agent-handler)

+  (server-cleanup-unused-files)
+
  ;; restore agents
  (for ([agent (in-list (get-nodes 'agent))])
    (log-server-info "restoring agent ~a" (node-info-id agent))