runTestCurrentTime :: LocalTime -> Eff (CurrentTime ': r) a -> Eff r a
runTestCurrentTime lt = handleRelay return (\CurrentTime k -> k lt)
runTestCurrentTime :: LocalTime -> Eff (CurrentTime ': r) a -> Eff r a
runTestCurrentTime lt = handleRelay return (\CurrentTime k -> k lt)
runTestCurrentTime lt = handleRelay return (\CurrentTime k -> k lt)