Tons of small fixes

src/clj/auto_ap/datomic/ledger.clj

@@ -115,11 +115,13 @@
                      (group-by :db/id))]
     (->> ids
          (map results)
+         (filter identity)
          (map first))))
 
 (defn get-graphql [args]
   (let [db (d/db (d/connect uri))
         {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
+    
     [(->> (graphql-results ids-to-retrieve db args))
      matching-count]))