From 835b030d4921adccfef83c5a5a076e091f290266 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 13 Aug 2024 12:05:46 +0200 Subject: chore: log aggregate exceptions --- src/Data/Sensor.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Data/Sensor.hs b/src/Data/Sensor.hs index 29ead27..4bbc988 100644 --- a/src/Data/Sensor.hs +++ b/src/Data/Sensor.hs @@ -270,7 +270,10 @@ sample' f s = do _ <- atomically do readTChan globalQueueT pure c' ) - (\(Restart _ _) -> pure c) + ( \(Restart s e) -> do + liftIO (print (s, e)) + pure c + ) >>= loop loop Nothing -- cgit v1.2.3