diff options
| author | Jakob L. Kreuze | 2023-08-12 16:40:11 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze | 2023-08-12 16:40:11 -0400 |
| commit | dac324a63bc0e1645fb01ab56dc2dc0d1c98c9de (patch) | |
| tree | 82dc6b58d857f6c47a4cd6f57e0918ac79edd8c9 /haunt/jakob/dynamic/capabilities/common.scm | |
| parent | 802859a04fe50a9befc87e956f563c6153f43725 (diff) | |
[api] Identify comments based on clearnet/darknet
Diffstat (limited to 'haunt/jakob/dynamic/capabilities/common.scm')
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/common.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/haunt/jakob/dynamic/capabilities/common.scm b/haunt/jakob/dynamic/capabilities/common.scm index 0e7d7b8..2bca1a2 100644 --- a/haunt/jakob/dynamic/capabilities/common.scm +++ b/haunt/jakob/dynamic/capabilities/common.scm @@ -31,6 +31,7 @@ internal-comment-publish-time internal-comment-reactions internal-comment-replies + internal-comment-originating-network sort-comments)) (define-json-mapping <internal-comment> @@ -57,7 +58,8 @@ (vector->list x))) (lambda (x) (list->vector (map (lambda (y) (json-string->scm (internal-comment->json y))) - x))))) + x)))) + (originating-network internal-comment-originating-network)) (define (sort-comments comments) "Sort COMMENTS, a list of `<internal-comment>' chronologically" |