code i wrote recently to get logs:

;; credit for lazy-concat this goes to juxt post on iterat
(defn lazy-concat
  "A concat version that is completely lazy and
  does not require to use apply."
  [colls]
  (lazy-seq
   (when-first [c colls]
     (lazy-cat c (lazy-concat (rest colls))))))


(defn log-group-name->logs
  "given a `log-group-name` (e.g 'staging') returns the log locally"
  [log-group-name]
  (->> (iteration
        (fn [token]
          (icc :DescribeLogStreams
               (cond-> {:logGroupName log-group-name} token (assoc :nextToken token))))
        :vf (fn [{:keys [logStreams]}]
              (reduce
               (fn [all-log-streams log-stream]
                 (concat all-log-streams (-> (icc :GetLogEvents
                                                  (-> log-stream
                                                      (select-keys [:logStreamName])
                                                      (assoc :logGroupName log-group-name)))
                                             :events)))
               []
               logStreams))
        :kf :nextToken)
         ;;TODO make this lazy by using something other then apply concat
       lazy-concat))

(defn get-codebuild-logs []
  (log-group-name->logs "/aws/codebuild/cacapi-training-codebuildproject"))

(transduce
    (halt-when (fn [{:keys [message]}] (str/includes? message "FAILED"))
              (fn [completed-result input-triggered] {:trigger input-triggered
                                                      :last-5-leading-upto-it (take-last 5 completed-result)}))
   conj
   codebuild-logs)