~zinigor/cardano-node/trunk

« back to all changes in this revision

Viewing changes to cardano-node-chairman/testnet/Testnet/Commands.hs

• browse files at revision 1
• compare with another revision
• compare with revision 1
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

cardano-node-chairman/testnet/Testnet/Commands.hs

 

1

module Testnet.Commands where

 

2

 

 

3

import           Data.Function

 

4

import           Data.Monoid

 

5

import           Options.Applicative

 

6

import           System.IO (IO)

 

7

import           Testnet.Commands.Byron

 

8

import           Testnet.Commands.ByronShelley

 

9

import           Testnet.Commands.Shelley

 

10

import           Testnet.Commands.Version

 

11

 

 

12

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

 

13

 

 

14

commands :: Parser (IO ())

 

15

commands = commandsTestnet <|> commandsGeneral

 

16

 

 

17

commandsTestnet :: Parser (IO ())

 

18

commandsTestnet = subparser $ mempty

 

19

  <>  commandGroup "Testnets:"

 

20

  <>  cmdByron

 

21

  <>  cmdByronShelley

 

22

  <>  cmdShelley

 

23

 

 

24

commandsGeneral :: Parser (IO ())

 

25

commandsGeneral = subparser $ mempty

 

26

  <>  commandGroup "General:"

 

27

  <>  cmdVersion

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1