readRef :: (GHC.MonadIO m, MonadTrans t, MonadReader s (t m)) => Lens' s (IORef a) -> t m a
readRef l = view l >>= lift . GHC.liftIO . readIORef
readRef :: (GHC.MonadIO m, MonadTrans t, MonadReader s (t m)) => Lens' s (IORef a) -> t m a
readRef l = view l >>= lift . GHC.liftIO . readIORef
readRef l = view l >>= lift . GHC.liftIO . readIORef