never executed always true always false
    1 {-# LANGUAGE OverloadedStrings #-}
    2 {-# LANGUAGE QuasiQuotes #-}
    3 
    4 {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
    5 {- HLINT ignore "Use camelCase" -}
    6 
    7 -- | List common bech32 prefixes used for objects in the Cardano eco-systems.
    8 --
    9 -- As specified in [CIP-5](https://github.com/cardano-foundation/CIPs/tree/master/CIP5)
   10 module Cardano.Codec.Bech32.Prefixes
   11     ( -- * Addresses
   12       addr
   13     , addr_test
   14     , script
   15     , stake
   16     , stake_test
   17 
   18       -- * Hashes
   19     , addr_vkh
   20     , stake_vkh
   21     , addr_shared_vkh
   22     , stake_shared_vkh
   23 
   24       -- * Keys for 1852H
   25     , addr_vk
   26     , addr_sk
   27     , addr_xvk
   28     , addr_xsk
   29     , acct_vk
   30     , acct_sk
   31     , acct_xvk
   32     , acct_xsk
   33     , root_vk
   34     , root_sk
   35     , root_xvk
   36     , root_xsk
   37     , stake_vk
   38     , stake_sk
   39     , stake_xvk
   40     , stake_xsk
   41 
   42       -- * Keys for 1854H
   43     , addr_shared_vk
   44     , addr_shared_sk
   45     , addr_shared_xvk
   46     , addr_shared_xsk
   47     , acct_shared_vk
   48     , acct_shared_sk
   49     , acct_shared_xvk
   50     , acct_shared_xsk
   51     , root_shared_vk
   52     , root_shared_sk
   53     , root_shared_xvk
   54     , root_shared_xsk
   55     , stake_shared_vk
   56     , stake_shared_sk
   57     , stake_shared_xvk
   58     , stake_shared_xsk
   59 
   60       -- * Keys for 1855H
   61     , policy_vk
   62     , policy_xvk
   63     , policy_vkh
   64     , policy_xsk
   65     ) where
   66 
   67 import Codec.Binary.Bech32
   68     ( HumanReadablePart )
   69 import Codec.Binary.Bech32.TH
   70     ( humanReadablePart )
   71 
   72 
   73 -- Addresses
   74 
   75 addr :: HumanReadablePart
   76 addr = [humanReadablePart|addr|]
   77 
   78 addr_test :: HumanReadablePart
   79 addr_test = [humanReadablePart|addr_test|]
   80 
   81 script :: HumanReadablePart
   82 script = [humanReadablePart|script|]
   83 
   84 stake :: HumanReadablePart
   85 stake = [humanReadablePart|stake|]
   86 
   87 stake_test :: HumanReadablePart
   88 stake_test = [humanReadablePart|stake_test|]
   89 
   90 
   91 -- Keys
   92 
   93 addr_vk :: HumanReadablePart
   94 addr_vk = [humanReadablePart|addr_vk|]
   95 
   96 addr_sk :: HumanReadablePart
   97 addr_sk = [humanReadablePart|addr_sk|]
   98 
   99 addr_xvk :: HumanReadablePart
  100 addr_xvk = [humanReadablePart|addr_xvk|]
  101 
  102 addr_xsk :: HumanReadablePart
  103 addr_xsk = [humanReadablePart|addr_xsk|]
  104 
  105 acct_vk :: HumanReadablePart
  106 acct_vk = [humanReadablePart|acct_vk|]
  107 
  108 acct_sk :: HumanReadablePart
  109 acct_sk = [humanReadablePart|acct_sk|]
  110 
  111 acct_xvk :: HumanReadablePart
  112 acct_xvk = [humanReadablePart|acct_xvk|]
  113 
  114 acct_xsk :: HumanReadablePart
  115 acct_xsk = [humanReadablePart|acct_xsk|]
  116 
  117 root_vk :: HumanReadablePart
  118 root_vk = [humanReadablePart|root_vk|]
  119 
  120 root_sk :: HumanReadablePart
  121 root_sk = [humanReadablePart|root_sk|]
  122 
  123 root_xvk :: HumanReadablePart
  124 root_xvk = [humanReadablePart|root_xvk|]
  125 
  126 root_xsk :: HumanReadablePart
  127 root_xsk = [humanReadablePart|root_xsk|]
  128 
  129 stake_vk :: HumanReadablePart
  130 stake_vk = [humanReadablePart|stake_vk|]
  131 
  132 stake_sk :: HumanReadablePart
  133 stake_sk = [humanReadablePart|stake_sk|]
  134 
  135 stake_xvk :: HumanReadablePart
  136 stake_xvk = [humanReadablePart|stake_xvk|]
  137 
  138 stake_xsk :: HumanReadablePart
  139 stake_xsk = [humanReadablePart|stake_xsk|]
  140 
  141 addr_shared_vk :: HumanReadablePart
  142 addr_shared_vk = [humanReadablePart|addr_shared_vk|]
  143 
  144 addr_shared_sk :: HumanReadablePart
  145 addr_shared_sk = [humanReadablePart|addr_shared_sk|]
  146 
  147 addr_shared_xvk :: HumanReadablePart
  148 addr_shared_xvk = [humanReadablePart|addr_shared_xvk|]
  149 
  150 addr_shared_xsk :: HumanReadablePart
  151 addr_shared_xsk = [humanReadablePart|addr_shared_xsk|]
  152 
  153 acct_shared_vk :: HumanReadablePart
  154 acct_shared_vk = [humanReadablePart|acct_shared_vk|]
  155 
  156 acct_shared_sk :: HumanReadablePart
  157 acct_shared_sk = [humanReadablePart|acct_shared_sk|]
  158 
  159 acct_shared_xvk :: HumanReadablePart
  160 acct_shared_xvk = [humanReadablePart|acct_shared_xvk|]
  161 
  162 acct_shared_xsk :: HumanReadablePart
  163 acct_shared_xsk = [humanReadablePart|acct_shared_xsk|]
  164 
  165 root_shared_vk :: HumanReadablePart
  166 root_shared_vk = [humanReadablePart|root_shared_vk|]
  167 
  168 root_shared_sk :: HumanReadablePart
  169 root_shared_sk = [humanReadablePart|root_shared_sk|]
  170 
  171 root_shared_xvk :: HumanReadablePart
  172 root_shared_xvk = [humanReadablePart|root_shared_xvk|]
  173 
  174 root_shared_xsk :: HumanReadablePart
  175 root_shared_xsk = [humanReadablePart|root_shared_xsk|]
  176 
  177 stake_shared_vk :: HumanReadablePart
  178 stake_shared_vk = [humanReadablePart|stake_shared_vk|]
  179 
  180 stake_shared_sk :: HumanReadablePart
  181 stake_shared_sk = [humanReadablePart|stake_shared_sk|]
  182 
  183 stake_shared_xvk :: HumanReadablePart
  184 stake_shared_xvk = [humanReadablePart|stake_shared_xvk|]
  185 
  186 stake_shared_xsk :: HumanReadablePart
  187 stake_shared_xsk = [humanReadablePart|stake_shared_xsk|]
  188 
  189 -- Hashes
  190 
  191 addr_vkh :: HumanReadablePart
  192 addr_vkh = [humanReadablePart|addr_vkh|]
  193 
  194 stake_vkh :: HumanReadablePart
  195 stake_vkh = [humanReadablePart|stake_vkh|]
  196 
  197 addr_shared_vkh :: HumanReadablePart
  198 addr_shared_vkh = [humanReadablePart|addr_shared_vkh|]
  199 
  200 stake_shared_vkh :: HumanReadablePart
  201 stake_shared_vkh = [humanReadablePart|stake_shared_vkh|]
  202 
  203 -- Policy
  204 policy_vk :: HumanReadablePart
  205 policy_vk = [humanReadablePart|policy_vk|]
  206 
  207 policy_xvk :: HumanReadablePart
  208 policy_xvk = [humanReadablePart|policy_xvk|]
  209 
  210 policy_vkh :: HumanReadablePart
  211 policy_vkh = [humanReadablePart|policy_vkh|]
  212 
  213 policy_xsk :: HumanReadablePart
  214 policy_xsk = [humanReadablePart|policy_xsk|]