{-# LANGUAGE LambdaCase #-}

module Cardano.CLI.Legacy.Commands
  ( LegacyCmds (..)
  , renderLegacyCommand
  )
where

import           Cardano.CLI.Legacy.Commands.Genesis
import           Cardano.CLI.Legacy.Commands.Governance

import           Data.Text (Text)

data LegacyCmds
  = LegacyGenesisCmds LegacyGenesisCmds
  | LegacyGovernanceCmds LegacyGovernanceCmds

renderLegacyCommand :: LegacyCmds -> Text
renderLegacyCommand :: LegacyCmds -> Text
renderLegacyCommand = \case
  LegacyGovernanceCmds LegacyGovernanceCmds
cmd ->
    LegacyGovernanceCmds -> Text
renderLegacyGovernanceCmds LegacyGovernanceCmds
cmd
  LegacyGenesisCmds LegacyGenesisCmds
cmd ->
    LegacyGenesisCmds -> Text
renderLegacyGenesisCmds LegacyGenesisCmds
cmd