summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--qkbox/toot.scm8
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