evaluateCommand (TimeLogCancel) _ st = do
  let st' = set timeLogsToSend [] st
  let st'' = set uuidCurrentTaskLogged Nothing st'
  return $ Right st''
evaluateCommand (TimeLogCancel) _ st = do
  let st' = set timeLogsToSend [] st
  let st'' = set uuidCurrentTaskLogged Nothing st'
  return $ Right st''
evaluateCommand (TimeLogCancel) _ st = do
  let st' = set timeLogsToSend [] st
  let st'' = set uuidCurrentTaskLogged Nothing st'
  return $ Right st''