scripts: Use index!.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 09:00:21 +0000 (11:00 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 09:00:21 +0000 (11:00 +0200)
scripts/mumi.in

index 3297b7965dfab8c919e66caf69fc4bdbbbbd98fa..b4c843c84caf3e1b0293df06deb646282a1b8696 100644 (file)
 ;;; along with mumi.  If not, see <http://www.gnu.org/licenses/>.
 
 (use-modules (srfi srfi-1)
-             (srfi srfi-26)
              (srfi srfi-37)
              (system repl server)
              (ice-9 match)
              (ice-9 format)
              (mumi config)
-             (mumi bugs)
-             (mumi jobs)
-             (mumi messages)
-             (mumi web server)
-             (debbugs))
+             ((mumi bugs)
+              #:select (db-create! update-bug-database!))
+             ((mumi jobs)
+              #:select (worker-loop))
+             ((mumi web server)
+              #:select (start-mumi-web-server))
+             ((mumi xapian)
+              #:select (index!))
+             ((debbugs)
+              #:select (soap-invoke* get-bugs)))
 
 (db-create!)
 
@@ -47,6 +51,7 @@
 (define* (update-state! #:key loop?)
   (catch #t
     (lambda ()
+      (index!)
       (let ((nums (sort (append-map (lambda (package)
                                       (soap-invoke* (%config 'debbugs)
                                                     get-bugs