evaluateCommand (TimeLogHide) _ st = do
  let st' = set isShowTimeLogs False st
  return $ Right st'
evaluateCommand (TimeLogHide) _ st = do
  let st' = set isShowTimeLogs False st
  return $ Right st'
evaluateCommand (TimeLogHide) _ st = do
  let st' = set isShowTimeLogs False st
  return $ Right st'