module Cardano.Chairman.Commands where

import           Cardano.Chairman.Commands.Run
import           Cardano.Chairman.Commands.Version
import           Options.Applicative

{- HLINT ignore "Monoid law, left identity" -}

commands :: Parser (IO ())
commands :: Parser (IO ())
commands = forall a. Mod CommandFields a -> Parser a
subparser forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a
mempty
  forall a. Semigroup a => a -> a -> a
<>  Mod CommandFields (IO ())
cmdRun
  forall a. Semigroup a => a -> a -> a
<>  Mod CommandFields (IO ())
cmdVersion