diff options
| -rw-r--r-- | qkbox/toot.scm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index de891d9..1de9fb4 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -185,13 +185,7 @@ #:local? local?)) (case (response-code res) ((200) - (map (lambda (status) - `((id . ,(assoc-ref status "id")) - (name . ,(assoc-ref (assoc-ref status "account") - "display_name")) - (url . ,(assoc-ref status "url")) - (content . ,(assoc-ref status "content")))) - (vector->list body))) + (map make-status (vector->list body))) ((206) (error "timeline: Home feed is regenerating")) (else |