evaluateCommand (TimeLogStart cmt) _ st = do
  let uuidSelected = view uuidCurrentTask st
  let st' = set uuidCurrentTaskLogged (Just uuidSelected) st
  let st''= set timeLogComment cmt st'
  return $ Right st''
evaluateCommand (TimeLogStart cmt) _ st = do
  let uuidSelected = view uuidCurrentTask st
  let st' = set uuidCurrentTaskLogged (Just uuidSelected) st
  let st''= set timeLogComment cmt st'
  return $ Right st''
evaluateCommand (TimeLogStart cmt) _ st = do
  let uuidSelected = view uuidCurrentTask st
  let st' = set uuidCurrentTaskLogged (Just uuidSelected) st
  let st''= set timeLogComment cmt st'
  return $ Right st''