printCurrentTime :: Member CurrentTime r => String -> Eff r String
printCurrentTime fmt = printTime fmt <$> currentTime
printCurrentTime :: Member CurrentTime r => String -> Eff r String
printCurrentTime fmt = printTime fmt <$> currentTime
printCurrentTime fmt = printTime fmt <$> currentTime