WIP debug logging

Author: omnibs

nri-kafka/src/Kafka/Stats.hs

@@ -20,7 +20,7 @@ type StatsCallback = (Result Text Stats -> Task Text ())
 
 decode :: ByteString -> Result Text Stats
 decode raw =
-  case Aeson.Extra.decodeIntoFlatDict raw of
+  case Aeson.Extra.decodeIntoFlatDict (Debug.log "raw" raw) of
     Err err -> Err err
     Ok stats ->
       stats
@@ -38,7 +38,7 @@ data Metric = StringMetric Text | IntMetric Int | IntGauge Int | BoolMetric Bool
 
 toMetric :: Path -> Aeson.Value -> Result Text Metric
 toMetric path value =
-  case List.reverse path of
+  case List.reverse (Debug.log "path" path) of
     (Aeson.Extra.Key last) : _ ->
       case Dict.get last allMetrics of
         Nothing ->