glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: retry user initialization

This commit is contained in:
Luis Pereira 2025-10-19 23:04:36 +01:00 committed by Brian O'Reilly
parent a2ae329d54
commit 0930fc2c1c
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
user-management.lisp
View File

@ -282,12 +282,15 @@
;; Fallback to delayed initialization
(bt:make-thread
(lambda ()
(sleep 3) ; Give database more time to initialize
(handler-case
(progn
(format t "Retrying user management setup...~%")
(create-default-admin)
(format t "User management initialization complete.~%"))
(error (e)
(format t "Error initializing user system: ~a~%" e))))
(dotimes (a 5)
(unless (db:connected-p)
(sleep 3)) ; Give database more time to initialize
(handler-case
(progn
(format t "Retrying user management setup...~%")
(create-default-admin)
(format t "User management initialization complete.~%")
(return))
(error (e)
(format t "Error initializing user system: ~a~%" e)))))
:name "user-init"))))