FranzCross,auto-update: run immediate update check in bg thread

Bogdanp · Oct 28, 2023 · 9f52632 · 9f52632
1 parent 8e9db54
commit 9f52632
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/FranzCross/auto-update.rkt b/FranzCross/auto-update.rkt
@@ -11,7 +11,8 @@
          racket/string
          "common.rkt"
          "mixin.rkt"
-         "preference.rkt")
+         "preference.rkt"
+         "thread.rkt")
 
 (provide
  start-auto-updater
@@ -34,10 +35,11 @@
        #:version franz-version
        #:frequency (and check-for-updates? check-interval))))
   (when (and check-for-updates? check-now?)
-    (match (auto-updater-check updater)
-      [`(#f #f) (void)]
-      [`(,changelog ,release)
-       (do-update-available changelog release)]))
+    (thread*
+     (match (auto-updater-check updater)
+       [`(#f #f) (void)]
+       [`(,changelog ,release)
+        (do-update-available changelog release)])))
   (set! the-auto-updater updater))
 
 (define (stop-auto-updater)