evaluateCommand :: Command -> SIO.Handle -> St -> IO (Either String St)
evaluateCommand (AppShowDetails b) _ st = do
  let st' = set isShowDetails b st
  return $ Right st'
evaluateCommand :: Command -> SIO.Handle -> St -> IO (Either String St)
evaluateCommand (AppShowDetails b) _ st = do
  let st' = set isShowDetails b st
  return $ Right st'
evaluateCommand (AppShowDetails b) _ st = do
  let st' = set isShowDetails b st
  return $ Right st'