diff options
| -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 |