runCurrentTime :: MemberU2 Lift (Lift IO) r => Eff (CurrentTime ': r) a -> Eff r a
runCurrentTime = handleRelay return (\CurrentTime k -> lift currentLocalTime >>= k)
runCurrentTime :: MemberU2 Lift (Lift IO) r => Eff (CurrentTime ': r) a -> Eff r a
runCurrentTime = handleRelay return (\CurrentTime k -> lift currentLocalTime >>= k)
runCurrentTime = handleRelay return (\CurrentTime k -> lift currentLocalTime >>= k)