diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-08-13 12:05:46 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-08-13 12:05:46 +0200 |
| commit | 835b030d4921adccfef83c5a5a076e091f290266 (patch) | |
| tree | f075bf6fbff32f592144a0f5153c4c1a094c437d | |
| parent | 272b3ace747857729171780edae898819d211832 (diff) | |
chore: log aggregate exceptionsmain
| -rw-r--r-- | src/Data/Sensor.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |