add missing cleanup call to server init
This commit is contained in:
parent
a60f83cd16
commit
b4b31436ce
|
@ -1036,6 +1036,8 @@
|
||||||
(rpc-register-all server^ server-impl@)
|
(rpc-register-all server^ server-impl@)
|
||||||
(init-agent-handler)
|
(init-agent-handler)
|
||||||
|
|
||||||
|
(server-cleanup-unused-files)
|
||||||
|
|
||||||
;; restore agents
|
;; restore agents
|
||||||
(for ([agent (in-list (get-nodes 'agent))])
|
(for ([agent (in-list (get-nodes 'agent))])
|
||||||
(log-server-info "restoring agent ~a" (node-info-id agent))
|
(log-server-info "restoring agent ~a" (node-info-id agent))
|
||||||
|
|
Loading…
Reference in New Issue