evaluateCommand (TaskSelectParent) _ st = do
  let u = view uuidCurrentTask st
  let ts = view tasks st
  let maybeTask = DL.find (\t -> (view uuid t) == u) ts
  let eitherSt = case maybeTask of
                  Just t -> Right $ set uuidCurrentTask (view parent t) st
                  _ -> Left "Root task has no parent, unable to cd .."
  return eitherSt
evaluateCommand (TaskSelectParent) _ st = do
  let u = view uuidCurrentTask st
  let ts = view tasks st
  let maybeTask = DL.find (\t -> (view uuid t) == u) ts
  let eitherSt = case maybeTask of
                  Just t -> Right $ set uuidCurrentTask (view parent t) st
                  _ -> Left "Root task has no parent, unable to cd .."
  return eitherSt
evaluateCommand (TaskSelectParent) _ st = do
  let u = view uuidCurrentTask st
  let ts = view tasks st
  let maybeTask = DL.find (\t -> (view uuid t) == u) ts
  let eitherSt = case maybeTask of
                  Just t -> Right $ set uuidCurrentTask (view parent t) st
                  _ -> Left "Root task has no parent, unable to cd .."
  return eitherSt