(s/defn parse-comment-request :- CommentRequest
  [raw-request]
  (update-in
   (if (contains? raw-request :parent-comment-id)
     (update-in raw-request [:parent-comment-id] long)
     raw-request)
   [:share-services]
   (partial mapv keyword)))