evaluateCommand (TimeLogComment cmt) _ st = do
  let st' = set timeLogComment cmt st
  return $ Right st'
evaluateCommand (TimeLogComment cmt) _ st = do
  let st' = set timeLogComment cmt st
  return $ Right st'
evaluateCommand (TimeLogComment cmt) _ st = do
  let st' = set timeLogComment cmt st
  return $ Right st'