evaluateCommand (TimeLogShow) _ st = do
  let st' = set isShowTimeLogs True st
  return $ Right st'
evaluateCommand (TimeLogShow) _ st = do
  let st' = set isShowTimeLogs True st
  return $ Right st'
evaluateCommand (TimeLogShow) _ st = do
  let st' = set isShowTimeLogs True st
  return $ Right st'