diff options
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" |