Try to reduce memory usage for querying narinfos

guix-data-service/model/nar.scm

@@ -386,7 +386,7 @@ ORDER BY COUNT(*) DESC")
           #:key
           build-success-after
           after-id
-          (limit 2000))
+          (limit 500))
   (define query
     (string-append
      "

guix-data-service/substitutes.scm

@@ -114,7 +114,7 @@
                          total-narinfos)
 
           (let ((filtered-narinfos
-                 (filter-map
+                 (remove!
                   (lambda (narinfo)
                     (if (> (narinfo-size narinfo)
                            %narinfo-max-size)
@@ -123,8 +123,8 @@
                                          "narinfo ~A has excessive size ~A\n"
                                          (narinfo-path narinfo)
                                          (narinfo-size narinfo))
-                          #f)
+                          #t)
-                        narinfo))
+                        #f))
                   narinfos)))
 
             (unless (null? filtered-narinfos)