From 44bb9a68d4309c138391bc27774540f6dfe8a38f Mon Sep 17 00:00:00 2001 From: Per Magnus Petersen Date: Fri, 13 Mar 2026 13:18:05 +0100 Subject: [PATCH] Add OHLC values to Kraken minute poller log output Co-Authored-By: Claude Opus 4.6 --- src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj b/src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj index 0032717..8d6697d 100644 --- a/src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj +++ b/src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj @@ -70,9 +70,10 @@ (when last-ts (reset! since-atom last-ts)) (let [fmt (DateTimeFormatter/ofPattern "HH:mm") - latest (:ts (last candles)) - ts-str (.format (.atOffset (Instant/ofEpochSecond latest) ZoneOffset/UTC) fmt)] - (log/info "Kraken minute:" (count candles) "candles, latest" ts-str "UTC"))) + c (last candles) + ts-str (.format (.atOffset (Instant/ofEpochSecond (:ts c)) ZoneOffset/UTC) fmt)] + (log/info "Kraken minute:" (count candles) "candles, latest" ts-str "UTC" + "O" (str (:open c)) "H" (str (:high c)) "L" (str (:low c)) "C" (str (:close c))))) (count candles))) (defn- start-poll-loop!