~zinigor/cardano-node/trunk

« back to all changes in this revision

Viewing changes to cardano-cli/src/Cardano/CLI/Mary/TxOutParser.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-cli/src/Cardano/CLI/Mary/TxOutParser.hs

 

1

module Cardano.CLI.Mary.TxOutParser

 

2

  ( parseTxOutAnyEra

 

3

  ) where

 

4

 

 

5

import           Prelude

 

6

 

 

7

import           Data.Char (isAsciiLower, isAsciiUpper, isDigit)

 

8

import           Data.Text (Text)

 

9

import qualified Data.Text as Text

 

10

 

 

11

import           Control.Applicative (some)

 

12

import           Text.Parsec (option, satisfy, (<?>))

 

13

import           Text.Parsec.Char (char, spaces)

 

14

import           Text.Parsec.String (Parser)

 

15

 

 

16

import           Cardano.Api (AddressAny (..), AsType (..), deserialiseAddress)

 

17

import           Cardano.CLI.Mary.ValueParser (parseValue)

 

18

import           Cardano.CLI.Types (TxOutAnyEra (..))

 

19

 

 

20

 

 

21

parseTxOutAnyEra :: Parser TxOutAnyEra

 

22

parseTxOutAnyEra = do

 

23

    addr <- parseAddressAny

 

24

    spaces

 

25

    -- Accept the old style of separating the address and value in a

 

26

    -- transaction output:

 

27

    option () (char '+' >> spaces)

 

28

    TxOutAnyEra addr <$> parseValue

 

29

 

 

30

parseAddressAny :: Parser AddressAny

 

31

parseAddressAny = do

 

32

  str <- plausibleAddressString <?> "address"

 

33

  case deserialiseAddress AsAddressAny str of

 

34

    Nothing -> fail "expecting valid address"

 

35

    Just addr -> pure addr

 

36

 

 

37

plausibleAddressString :: Parser Text

 

38

plausibleAddressString =

 

39

    Text.pack <$> some (satisfy isPlausibleAddressChar)

 

40

  where

 

41

    -- Covers both base58 and bech32 (with constrained prefixes)

 

42

    isPlausibleAddressChar c =

 

43

      isAsciiLower c

 

44

        || isAsciiUpper c

 

45

        || isDigit c

 

46

        || c == '_'

• Older »

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