diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/Sensor.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Data/Sensor.hs b/src/Data/Sensor.hs index fcb07a0..c6ed01d 100644 --- a/src/Data/Sensor.hs +++ b/src/Data/Sensor.hs @@ -46,7 +46,8 @@ newtype SensorT m a b = SensorT' } sensorT :: (MonadIO m) => MSF (ReaderT Config m) (V a) (V b) -> SensorT m a b -sensorT = +sensorT = SensorT' + {- SensorT' . go Nothing where go b' sf = MSF $ \a -> do @@ -57,7 +58,7 @@ sensorT = pure (fromJust b', go b' sf) else do (b, sf') <- (.unMSF) sf a - pure (b, go (Just b) sf') + pure (b, go (Just b) sf')-} stale :: (MonadIO m) => V a -> ReaderT Config m Bool stale (V gen _) = do |