{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}

module Cardano.CLI.Legacy.Run
  ( runLegacyCmds
  )
where

import Cardano.CLI.Compatible.Exception
import Cardano.CLI.Legacy.Genesis.Run
import Cardano.CLI.Legacy.Option

runLegacyCmds :: LegacyCmds -> CIO e ()
runLegacyCmds :: forall e. LegacyCmds -> CIO e ()
runLegacyCmds = \case
  LegacyGenesisCmds LegacyGenesisCmds
cmd -> LegacyGenesisCmds -> CIO e ()
forall e. LegacyGenesisCmds -> CIO e ()
runLegacyGenesisCmds LegacyGenesisCmds
cmd