evaluateCommand (TimeLogStop) _ st = do
  let st' = set uuidCurrentTaskLogged Nothing st
  return $ Right st'
evaluateCommand (TimeLogStop) _ st = do
  let st' = set uuidCurrentTaskLogged Nothing st
  return $ Right st'
evaluateCommand (TimeLogStop) _ st = do
  let st' = set uuidCurrentTaskLogged Nothing st
  return $ Right st'