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|]