]> gitweb.factorcode.org Git - factor.git/commitdiff
reddit: fix domain-stats
authorJohn Benediktsson <mrjbq7@gmail.com>
Sat, 2 Sep 2023 21:44:03 +0000 (14:44 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sat, 2 Sep 2023 21:44:03 +0000 (14:44 -0700)
extra/reddit/reddit.factor

index 5da8cd6d165fa383bcb83f4563c7e363fc81f6dd..6e3e282ecde9dcd202f52e4d749c3cc69c04796f 100644 (file)
@@ -112,6 +112,6 @@ PRIVATE>
     ] each-index ;
 
 : domain-stats ( domain -- stats )
-    get-domains all-pages [
+    get-domains all-pages [ "data" of ] map [
         "created" of 1000 * millis>timestamp year>>
     ] collect-by [ [ "score" of ] map-sum ] assoc-map ;