git.iko.soy/warden
on master help sign in
Custom Bridge Types
commit060890d8684727c95e20742b8548a561ee93b56b authoriko <ilyakooo0@gmail.com> dateWed 3 Aug 2022, 11:54 (4 years ago) parentd5bce0f
5 files changed+739−734
compare with master
unifiedsplit
backend/Bridge.purs+322−322 backend/Main.purs+2−2 bridge.yaml+68−63 frontend/Bridge.elm+346−346 frontend/Pages/Ciphers.elm+1−1
backend/Bridge.purs+322−322
@@ -12,448 +12,462 @@ import Data.Newtype (class Newtype)
1212
1313import Prelude
1414
15−newtype Cmd_Login =
16− Cmd_Login {
17− email :: String
18− , password :: String
19− , server :: String
20− }
15+newtype Cipher_CardCipher_brand_Maybe =
16+ Cipher_CardCipher_brand_Maybe (Maybe String)
2117
22−derive instance newtypeCmd_Login :: Newtype Cmd_Login _
23−instance encodeJsonCmd_Login :: EncodeJson Cmd_Login where
18+derive instance newtypeCipher_CardCipher_brand_Maybe :: Newtype Cipher_CardCipher_brand_Maybe _
19+instance encodeJsonCipher_CardCipher_brand_Maybe :: EncodeJson Cipher_CardCipher_brand_Maybe where
2420 encodeJson = genericEncodeAeson Argonaut.defaultOptions
25−instance decodeJsonCmd_Login :: DecodeJson Cmd_Login where
21+instance decodeJsonCipher_CardCipher_brand_Maybe :: DecodeJson Cipher_CardCipher_brand_Maybe where
2622 decodeJson = genericDecodeAeson Argonaut.defaultOptions
27−derive instance genericCmd_Login :: Generic Cmd_Login _
28−derive instance eqCmd_Login :: Eq Cmd_Login
29−derive instance ordCmd_Login :: Ord Cmd_Login
23+derive instance genericCipher_CardCipher_brand_Maybe :: Generic Cipher_CardCipher_brand_Maybe _
24+derive instance eqCipher_CardCipher_brand_Maybe :: Eq Cipher_CardCipher_brand_Maybe
25+derive instance ordCipher_CardCipher_brand_Maybe :: Ord Cipher_CardCipher_brand_Maybe
3026
31−data Cmd =
32− Copy String
33− | Init
34− | Login Cmd_Login
35− | NeedCiphersList
36− | NeedEmail
37− | NeedsReset
38− | Open String
39− | RequestCipher String
40− | SendMasterPassword String
27+newtype Cipher_CardCipher_cardholderName_Maybe =
28+ Cipher_CardCipher_cardholderName_Maybe (Maybe String)
4129
42−instance encodeJsonCmd :: EncodeJson Cmd where
30+derive instance newtypeCipher_CardCipher_cardholderName_Maybe :: Newtype Cipher_CardCipher_cardholderName_Maybe _
31+instance encodeJsonCipher_CardCipher_cardholderName_Maybe :: EncodeJson Cipher_CardCipher_cardholderName_Maybe where
4332 encodeJson = genericEncodeAeson Argonaut.defaultOptions
44−instance decodeJsonCmd :: DecodeJson Cmd where
33+instance decodeJsonCipher_CardCipher_cardholderName_Maybe :: DecodeJson Cipher_CardCipher_cardholderName_Maybe where
4534 decodeJson = genericDecodeAeson Argonaut.defaultOptions
46−derive instance genericCmd :: Generic Cmd _
47−derive instance eqCmd :: Eq Cmd
48−derive instance ordCmd :: Ord Cmd
35+derive instance genericCipher_CardCipher_cardholderName_Maybe :: Generic Cipher_CardCipher_cardholderName_Maybe _
36+derive instance eqCipher_CardCipher_cardholderName_Maybe :: Eq Cipher_CardCipher_cardholderName_Maybe
37+derive instance ordCipher_CardCipher_cardholderName_Maybe :: Ord Cipher_CardCipher_cardholderName_Maybe
4938
50−newtype Sub_LoadCipher_cipherType_CardCipher_brand_Maybe =
51− Sub_LoadCipher_cipherType_CardCipher_brand_Maybe (Maybe String)
39+newtype Cipher_CardCipher_code_Maybe =
40+ Cipher_CardCipher_code_Maybe (Maybe String)
5241
53−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_brand_Maybe _
54−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_brand_Maybe where
42+derive instance newtypeCipher_CardCipher_code_Maybe :: Newtype Cipher_CardCipher_code_Maybe _
43+instance encodeJsonCipher_CardCipher_code_Maybe :: EncodeJson Cipher_CardCipher_code_Maybe where
5544 encodeJson = genericEncodeAeson Argonaut.defaultOptions
56−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_brand_Maybe where
45+instance decodeJsonCipher_CardCipher_code_Maybe :: DecodeJson Cipher_CardCipher_code_Maybe where
5746 decodeJson = genericDecodeAeson Argonaut.defaultOptions
58−derive instance genericSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_brand_Maybe _
59−derive instance eqSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
60−derive instance ordSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
47+derive instance genericCipher_CardCipher_code_Maybe :: Generic Cipher_CardCipher_code_Maybe _
48+derive instance eqCipher_CardCipher_code_Maybe :: Eq Cipher_CardCipher_code_Maybe
49+derive instance ordCipher_CardCipher_code_Maybe :: Ord Cipher_CardCipher_code_Maybe
6150
62−newtype Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe =
63− Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe (Maybe String)
51+newtype Cipher_CardCipher_expMonth_Maybe =
52+ Cipher_CardCipher_expMonth_Maybe (Maybe String)
6453
65−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe _
66−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe where
54+derive instance newtypeCipher_CardCipher_expMonth_Maybe :: Newtype Cipher_CardCipher_expMonth_Maybe _
55+instance encodeJsonCipher_CardCipher_expMonth_Maybe :: EncodeJson Cipher_CardCipher_expMonth_Maybe where
6756 encodeJson = genericEncodeAeson Argonaut.defaultOptions
68−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe where
57+instance decodeJsonCipher_CardCipher_expMonth_Maybe :: DecodeJson Cipher_CardCipher_expMonth_Maybe where
6958 decodeJson = genericDecodeAeson Argonaut.defaultOptions
70−derive instance genericSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe _
71−derive instance eqSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
72−derive instance ordSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
59+derive instance genericCipher_CardCipher_expMonth_Maybe :: Generic Cipher_CardCipher_expMonth_Maybe _
60+derive instance eqCipher_CardCipher_expMonth_Maybe :: Eq Cipher_CardCipher_expMonth_Maybe
61+derive instance ordCipher_CardCipher_expMonth_Maybe :: Ord Cipher_CardCipher_expMonth_Maybe
7362
74−newtype Sub_LoadCipher_cipherType_CardCipher_code_Maybe =
75− Sub_LoadCipher_cipherType_CardCipher_code_Maybe (Maybe String)
63+newtype Cipher_CardCipher_expYear_Maybe =
64+ Cipher_CardCipher_expYear_Maybe (Maybe String)
7665
77−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_code_Maybe _
78−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_code_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_code_Maybe where
66+derive instance newtypeCipher_CardCipher_expYear_Maybe :: Newtype Cipher_CardCipher_expYear_Maybe _
67+instance encodeJsonCipher_CardCipher_expYear_Maybe :: EncodeJson Cipher_CardCipher_expYear_Maybe where
7968 encodeJson = genericEncodeAeson Argonaut.defaultOptions
80−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_code_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_code_Maybe where
69+instance decodeJsonCipher_CardCipher_expYear_Maybe :: DecodeJson Cipher_CardCipher_expYear_Maybe where
8170 decodeJson = genericDecodeAeson Argonaut.defaultOptions
82−derive instance genericSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_code_Maybe _
83−derive instance eqSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_code_Maybe
84−derive instance ordSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_code_Maybe
71+derive instance genericCipher_CardCipher_expYear_Maybe :: Generic Cipher_CardCipher_expYear_Maybe _
72+derive instance eqCipher_CardCipher_expYear_Maybe :: Eq Cipher_CardCipher_expYear_Maybe
73+derive instance ordCipher_CardCipher_expYear_Maybe :: Ord Cipher_CardCipher_expYear_Maybe
8574
86−newtype Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe =
87− Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe (Maybe String)
75+newtype Cipher_CardCipher_number_Maybe =
76+ Cipher_CardCipher_number_Maybe (Maybe String)
8877
89−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe _
90−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe where
78+derive instance newtypeCipher_CardCipher_number_Maybe :: Newtype Cipher_CardCipher_number_Maybe _
79+instance encodeJsonCipher_CardCipher_number_Maybe :: EncodeJson Cipher_CardCipher_number_Maybe where
9180 encodeJson = genericEncodeAeson Argonaut.defaultOptions
92−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe where
81+instance decodeJsonCipher_CardCipher_number_Maybe :: DecodeJson Cipher_CardCipher_number_Maybe where
9382 decodeJson = genericDecodeAeson Argonaut.defaultOptions
94−derive instance genericSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe _
95−derive instance eqSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
96−derive instance ordSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
83+derive instance genericCipher_CardCipher_number_Maybe :: Generic Cipher_CardCipher_number_Maybe _
84+derive instance eqCipher_CardCipher_number_Maybe :: Eq Cipher_CardCipher_number_Maybe
85+derive instance ordCipher_CardCipher_number_Maybe :: Ord Cipher_CardCipher_number_Maybe
9786
98−newtype Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe =
99− Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe (Maybe String)
87+newtype Cipher_CardCipher =
88+ Cipher_CardCipher {
89+ brand :: Cipher_CardCipher_brand_Maybe
90+ , cardholderName :: Cipher_CardCipher_cardholderName_Maybe
91+ , code :: Cipher_CardCipher_code_Maybe
92+ , expMonth :: Cipher_CardCipher_expMonth_Maybe
93+ , expYear :: Cipher_CardCipher_expYear_Maybe
94+ , number :: Cipher_CardCipher_number_Maybe
95+ }
10096
101−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe _
102−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe where
97+derive instance newtypeCipher_CardCipher :: Newtype Cipher_CardCipher _
98+instance encodeJsonCipher_CardCipher :: EncodeJson Cipher_CardCipher where
10399 encodeJson = genericEncodeAeson Argonaut.defaultOptions
104−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe where
100+instance decodeJsonCipher_CardCipher :: DecodeJson Cipher_CardCipher where
105101 decodeJson = genericDecodeAeson Argonaut.defaultOptions
106−derive instance genericSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe _
107−derive instance eqSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
108−derive instance ordSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
102+derive instance genericCipher_CardCipher :: Generic Cipher_CardCipher _
103+derive instance eqCipher_CardCipher :: Eq Cipher_CardCipher
104+derive instance ordCipher_CardCipher :: Ord Cipher_CardCipher
109105
110−newtype Sub_LoadCipher_cipherType_CardCipher_number_Maybe =
111− Sub_LoadCipher_cipherType_CardCipher_number_Maybe (Maybe String)
106+newtype Cipher_IdentityCipher_address1_Maybe =
107+ Cipher_IdentityCipher_address1_Maybe (Maybe String)
112108
113−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_number_Maybe _
114−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_number_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_number_Maybe where
109+derive instance newtypeCipher_IdentityCipher_address1_Maybe :: Newtype Cipher_IdentityCipher_address1_Maybe _
110+instance encodeJsonCipher_IdentityCipher_address1_Maybe :: EncodeJson Cipher_IdentityCipher_address1_Maybe where
115111 encodeJson = genericEncodeAeson Argonaut.defaultOptions
116−instance decodeJsonSub_LoadCipher_cipherType_CardCipher_number_Maybe :: DecodeJson Sub_LoadCipher_cipherType_CardCipher_number_Maybe where
112+instance decodeJsonCipher_IdentityCipher_address1_Maybe :: DecodeJson Cipher_IdentityCipher_address1_Maybe where
117113 decodeJson = genericDecodeAeson Argonaut.defaultOptions
118−derive instance genericSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_number_Maybe _
119−derive instance eqSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_number_Maybe
120−derive instance ordSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_number_Maybe
114+derive instance genericCipher_IdentityCipher_address1_Maybe :: Generic Cipher_IdentityCipher_address1_Maybe _
115+derive instance eqCipher_IdentityCipher_address1_Maybe :: Eq Cipher_IdentityCipher_address1_Maybe
116+derive instance ordCipher_IdentityCipher_address1_Maybe :: Ord Cipher_IdentityCipher_address1_Maybe
121117
122−newtype Sub_LoadCipher_cipherType_CardCipher =
123− Sub_LoadCipher_cipherType_CardCipher {
124− brand :: Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
125− , cardholderName :: Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
126− , code :: Sub_LoadCipher_cipherType_CardCipher_code_Maybe
127− , expMonth :: Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
128− , expYear :: Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
129− , number :: Sub_LoadCipher_cipherType_CardCipher_number_Maybe
130− }
118+newtype Cipher_IdentityCipher_address2_Maybe =
119+ Cipher_IdentityCipher_address2_Maybe (Maybe String)
131120
132−derive instance newtypeSub_LoadCipher_cipherType_CardCipher :: Newtype Sub_LoadCipher_cipherType_CardCipher _
133−instance encodeJsonSub_LoadCipher_cipherType_CardCipher :: EncodeJson Sub_LoadCipher_cipherType_CardCipher where
121+derive instance newtypeCipher_IdentityCipher_address2_Maybe :: Newtype Cipher_IdentityCipher_address2_Maybe _
122+instance encodeJsonCipher_IdentityCipher_address2_Maybe :: EncodeJson Cipher_IdentityCipher_address2_Maybe where
134123 encodeJson = genericEncodeAeson Argonaut.defaultOptions
135−instance decodeJsonSub_LoadCipher_cipherType_CardCipher :: DecodeJson Sub_LoadCipher_cipherType_CardCipher where
124+instance decodeJsonCipher_IdentityCipher_address2_Maybe :: DecodeJson Cipher_IdentityCipher_address2_Maybe where
136125 decodeJson = genericDecodeAeson Argonaut.defaultOptions
137−derive instance genericSub_LoadCipher_cipherType_CardCipher :: Generic Sub_LoadCipher_cipherType_CardCipher _
138−derive instance eqSub_LoadCipher_cipherType_CardCipher :: Eq Sub_LoadCipher_cipherType_CardCipher
139−derive instance ordSub_LoadCipher_cipherType_CardCipher :: Ord Sub_LoadCipher_cipherType_CardCipher
126+derive instance genericCipher_IdentityCipher_address2_Maybe :: Generic Cipher_IdentityCipher_address2_Maybe _
127+derive instance eqCipher_IdentityCipher_address2_Maybe :: Eq Cipher_IdentityCipher_address2_Maybe
128+derive instance ordCipher_IdentityCipher_address2_Maybe :: Ord Cipher_IdentityCipher_address2_Maybe
140129
141−newtype Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe =
142− Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe (Maybe String)
130+newtype Cipher_IdentityCipher_address3_Maybe =
131+ Cipher_IdentityCipher_address3_Maybe (Maybe String)
143132
144−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe _
145−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe where
133+derive instance newtypeCipher_IdentityCipher_address3_Maybe :: Newtype Cipher_IdentityCipher_address3_Maybe _
134+instance encodeJsonCipher_IdentityCipher_address3_Maybe :: EncodeJson Cipher_IdentityCipher_address3_Maybe where
146135 encodeJson = genericEncodeAeson Argonaut.defaultOptions
147−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe where
136+instance decodeJsonCipher_IdentityCipher_address3_Maybe :: DecodeJson Cipher_IdentityCipher_address3_Maybe where
148137 decodeJson = genericDecodeAeson Argonaut.defaultOptions
149−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe _
150−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
151−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
138+derive instance genericCipher_IdentityCipher_address3_Maybe :: Generic Cipher_IdentityCipher_address3_Maybe _
139+derive instance eqCipher_IdentityCipher_address3_Maybe :: Eq Cipher_IdentityCipher_address3_Maybe
140+derive instance ordCipher_IdentityCipher_address3_Maybe :: Ord Cipher_IdentityCipher_address3_Maybe
152141
153−newtype Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe =
154− Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe (Maybe String)
142+newtype Cipher_IdentityCipher_city_Maybe =
143+ Cipher_IdentityCipher_city_Maybe (Maybe String)
155144
156−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe _
157−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe where
145+derive instance newtypeCipher_IdentityCipher_city_Maybe :: Newtype Cipher_IdentityCipher_city_Maybe _
146+instance encodeJsonCipher_IdentityCipher_city_Maybe :: EncodeJson Cipher_IdentityCipher_city_Maybe where
158147 encodeJson = genericEncodeAeson Argonaut.defaultOptions
159−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe where
148+instance decodeJsonCipher_IdentityCipher_city_Maybe :: DecodeJson Cipher_IdentityCipher_city_Maybe where
160149 decodeJson = genericDecodeAeson Argonaut.defaultOptions
161−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe _
162−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
163−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
150+derive instance genericCipher_IdentityCipher_city_Maybe :: Generic Cipher_IdentityCipher_city_Maybe _
151+derive instance eqCipher_IdentityCipher_city_Maybe :: Eq Cipher_IdentityCipher_city_Maybe
152+derive instance ordCipher_IdentityCipher_city_Maybe :: Ord Cipher_IdentityCipher_city_Maybe
164153
165−newtype Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe =
166− Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe (Maybe String)
154+newtype Cipher_IdentityCipher_company_Maybe =
155+ Cipher_IdentityCipher_company_Maybe (Maybe String)
167156
168−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe _
169−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe where
157+derive instance newtypeCipher_IdentityCipher_company_Maybe :: Newtype Cipher_IdentityCipher_company_Maybe _
158+instance encodeJsonCipher_IdentityCipher_company_Maybe :: EncodeJson Cipher_IdentityCipher_company_Maybe where
170159 encodeJson = genericEncodeAeson Argonaut.defaultOptions
171−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe where
160+instance decodeJsonCipher_IdentityCipher_company_Maybe :: DecodeJson Cipher_IdentityCipher_company_Maybe where
172161 decodeJson = genericDecodeAeson Argonaut.defaultOptions
173−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe _
174−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
175−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
162+derive instance genericCipher_IdentityCipher_company_Maybe :: Generic Cipher_IdentityCipher_company_Maybe _
163+derive instance eqCipher_IdentityCipher_company_Maybe :: Eq Cipher_IdentityCipher_company_Maybe
164+derive instance ordCipher_IdentityCipher_company_Maybe :: Ord Cipher_IdentityCipher_company_Maybe
176165
177−newtype Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe =
178− Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe (Maybe String)
166+newtype Cipher_IdentityCipher_country_Maybe =
167+ Cipher_IdentityCipher_country_Maybe (Maybe String)
179168
180−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe _
181−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe where
169+derive instance newtypeCipher_IdentityCipher_country_Maybe :: Newtype Cipher_IdentityCipher_country_Maybe _
170+instance encodeJsonCipher_IdentityCipher_country_Maybe :: EncodeJson Cipher_IdentityCipher_country_Maybe where
182171 encodeJson = genericEncodeAeson Argonaut.defaultOptions
183−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe where
172+instance decodeJsonCipher_IdentityCipher_country_Maybe :: DecodeJson Cipher_IdentityCipher_country_Maybe where
184173 decodeJson = genericDecodeAeson Argonaut.defaultOptions
185−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe _
186−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
187−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
174+derive instance genericCipher_IdentityCipher_country_Maybe :: Generic Cipher_IdentityCipher_country_Maybe _
175+derive instance eqCipher_IdentityCipher_country_Maybe :: Eq Cipher_IdentityCipher_country_Maybe
176+derive instance ordCipher_IdentityCipher_country_Maybe :: Ord Cipher_IdentityCipher_country_Maybe
188177
189−newtype Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe =
190− Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe (Maybe String)
178+newtype Cipher_IdentityCipher_email_Maybe =
179+ Cipher_IdentityCipher_email_Maybe (Maybe String)
191180
192−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe _
193−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe where
181+derive instance newtypeCipher_IdentityCipher_email_Maybe :: Newtype Cipher_IdentityCipher_email_Maybe _
182+instance encodeJsonCipher_IdentityCipher_email_Maybe :: EncodeJson Cipher_IdentityCipher_email_Maybe where
194183 encodeJson = genericEncodeAeson Argonaut.defaultOptions
195−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe where
184+instance decodeJsonCipher_IdentityCipher_email_Maybe :: DecodeJson Cipher_IdentityCipher_email_Maybe where
196185 decodeJson = genericDecodeAeson Argonaut.defaultOptions
197−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe _
198−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
199−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
186+derive instance genericCipher_IdentityCipher_email_Maybe :: Generic Cipher_IdentityCipher_email_Maybe _
187+derive instance eqCipher_IdentityCipher_email_Maybe :: Eq Cipher_IdentityCipher_email_Maybe
188+derive instance ordCipher_IdentityCipher_email_Maybe :: Ord Cipher_IdentityCipher_email_Maybe
200189
201−newtype Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe =
202− Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe (Maybe String)
190+newtype Cipher_IdentityCipher_firstName_Maybe =
191+ Cipher_IdentityCipher_firstName_Maybe (Maybe String)
203192
204−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe _
205−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe where
193+derive instance newtypeCipher_IdentityCipher_firstName_Maybe :: Newtype Cipher_IdentityCipher_firstName_Maybe _
194+instance encodeJsonCipher_IdentityCipher_firstName_Maybe :: EncodeJson Cipher_IdentityCipher_firstName_Maybe where
206195 encodeJson = genericEncodeAeson Argonaut.defaultOptions
207−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe where
196+instance decodeJsonCipher_IdentityCipher_firstName_Maybe :: DecodeJson Cipher_IdentityCipher_firstName_Maybe where
208197 decodeJson = genericDecodeAeson Argonaut.defaultOptions
209−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe _
210−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
211−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
198+derive instance genericCipher_IdentityCipher_firstName_Maybe :: Generic Cipher_IdentityCipher_firstName_Maybe _
199+derive instance eqCipher_IdentityCipher_firstName_Maybe :: Eq Cipher_IdentityCipher_firstName_Maybe
200+derive instance ordCipher_IdentityCipher_firstName_Maybe :: Ord Cipher_IdentityCipher_firstName_Maybe
212201
213−newtype Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe =
214− Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe (Maybe String)
202+newtype Cipher_IdentityCipher_lastName_Maybe =
203+ Cipher_IdentityCipher_lastName_Maybe (Maybe String)
215204
216−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe _
217−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe where
205+derive instance newtypeCipher_IdentityCipher_lastName_Maybe :: Newtype Cipher_IdentityCipher_lastName_Maybe _
206+instance encodeJsonCipher_IdentityCipher_lastName_Maybe :: EncodeJson Cipher_IdentityCipher_lastName_Maybe where
218207 encodeJson = genericEncodeAeson Argonaut.defaultOptions
219−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe where
208+instance decodeJsonCipher_IdentityCipher_lastName_Maybe :: DecodeJson Cipher_IdentityCipher_lastName_Maybe where
220209 decodeJson = genericDecodeAeson Argonaut.defaultOptions
221−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe _
222−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
223−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
210+derive instance genericCipher_IdentityCipher_lastName_Maybe :: Generic Cipher_IdentityCipher_lastName_Maybe _
211+derive instance eqCipher_IdentityCipher_lastName_Maybe :: Eq Cipher_IdentityCipher_lastName_Maybe
212+derive instance ordCipher_IdentityCipher_lastName_Maybe :: Ord Cipher_IdentityCipher_lastName_Maybe
224213
225−newtype Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe =
226− Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe (Maybe String)
214+newtype Cipher_IdentityCipher_licenseNumber_Maybe =
215+ Cipher_IdentityCipher_licenseNumber_Maybe (Maybe String)
227216
228−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe _
229−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe where
217+derive instance newtypeCipher_IdentityCipher_licenseNumber_Maybe :: Newtype Cipher_IdentityCipher_licenseNumber_Maybe _
218+instance encodeJsonCipher_IdentityCipher_licenseNumber_Maybe :: EncodeJson Cipher_IdentityCipher_licenseNumber_Maybe where
230219 encodeJson = genericEncodeAeson Argonaut.defaultOptions
231−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe where
220+instance decodeJsonCipher_IdentityCipher_licenseNumber_Maybe :: DecodeJson Cipher_IdentityCipher_licenseNumber_Maybe where
232221 decodeJson = genericDecodeAeson Argonaut.defaultOptions
233−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe _
234−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
235−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
222+derive instance genericCipher_IdentityCipher_licenseNumber_Maybe :: Generic Cipher_IdentityCipher_licenseNumber_Maybe _
223+derive instance eqCipher_IdentityCipher_licenseNumber_Maybe :: Eq Cipher_IdentityCipher_licenseNumber_Maybe
224+derive instance ordCipher_IdentityCipher_licenseNumber_Maybe :: Ord Cipher_IdentityCipher_licenseNumber_Maybe
236225
237−newtype Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe =
238− Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe (Maybe String)
226+newtype Cipher_IdentityCipher_middleName_Maybe =
227+ Cipher_IdentityCipher_middleName_Maybe (Maybe String)
239228
240−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe _
241−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe where
229+derive instance newtypeCipher_IdentityCipher_middleName_Maybe :: Newtype Cipher_IdentityCipher_middleName_Maybe _
230+instance encodeJsonCipher_IdentityCipher_middleName_Maybe :: EncodeJson Cipher_IdentityCipher_middleName_Maybe where
242231 encodeJson = genericEncodeAeson Argonaut.defaultOptions
243−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe where
232+instance decodeJsonCipher_IdentityCipher_middleName_Maybe :: DecodeJson Cipher_IdentityCipher_middleName_Maybe where
244233 decodeJson = genericDecodeAeson Argonaut.defaultOptions
245−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe _
246−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
247−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
234+derive instance genericCipher_IdentityCipher_middleName_Maybe :: Generic Cipher_IdentityCipher_middleName_Maybe _
235+derive instance eqCipher_IdentityCipher_middleName_Maybe :: Eq Cipher_IdentityCipher_middleName_Maybe
236+derive instance ordCipher_IdentityCipher_middleName_Maybe :: Ord Cipher_IdentityCipher_middleName_Maybe
248237
249−newtype Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe =
250− Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe (Maybe String)
238+newtype Cipher_IdentityCipher_passportNumber_Maybe =
239+ Cipher_IdentityCipher_passportNumber_Maybe (Maybe String)
251240
252−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe _
253−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe where
241+derive instance newtypeCipher_IdentityCipher_passportNumber_Maybe :: Newtype Cipher_IdentityCipher_passportNumber_Maybe _
242+instance encodeJsonCipher_IdentityCipher_passportNumber_Maybe :: EncodeJson Cipher_IdentityCipher_passportNumber_Maybe where
254243 encodeJson = genericEncodeAeson Argonaut.defaultOptions
255−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe where
244+instance decodeJsonCipher_IdentityCipher_passportNumber_Maybe :: DecodeJson Cipher_IdentityCipher_passportNumber_Maybe where
256245 decodeJson = genericDecodeAeson Argonaut.defaultOptions
257−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe _
258−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
259−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
246+derive instance genericCipher_IdentityCipher_passportNumber_Maybe :: Generic Cipher_IdentityCipher_passportNumber_Maybe _
247+derive instance eqCipher_IdentityCipher_passportNumber_Maybe :: Eq Cipher_IdentityCipher_passportNumber_Maybe
248+derive instance ordCipher_IdentityCipher_passportNumber_Maybe :: Ord Cipher_IdentityCipher_passportNumber_Maybe
260249
261−newtype Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe =
262− Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe (Maybe String)
250+newtype Cipher_IdentityCipher_phone_Maybe =
251+ Cipher_IdentityCipher_phone_Maybe (Maybe String)
263252
264−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe _
265−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe where
253+derive instance newtypeCipher_IdentityCipher_phone_Maybe :: Newtype Cipher_IdentityCipher_phone_Maybe _
254+instance encodeJsonCipher_IdentityCipher_phone_Maybe :: EncodeJson Cipher_IdentityCipher_phone_Maybe where
266255 encodeJson = genericEncodeAeson Argonaut.defaultOptions
267−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe where
256+instance decodeJsonCipher_IdentityCipher_phone_Maybe :: DecodeJson Cipher_IdentityCipher_phone_Maybe where
268257 decodeJson = genericDecodeAeson Argonaut.defaultOptions
269−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe _
270−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
271−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
258+derive instance genericCipher_IdentityCipher_phone_Maybe :: Generic Cipher_IdentityCipher_phone_Maybe _
259+derive instance eqCipher_IdentityCipher_phone_Maybe :: Eq Cipher_IdentityCipher_phone_Maybe
260+derive instance ordCipher_IdentityCipher_phone_Maybe :: Ord Cipher_IdentityCipher_phone_Maybe
272261
273−newtype Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe =
274− Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe (Maybe String)
262+newtype Cipher_IdentityCipher_postalCode_Maybe =
263+ Cipher_IdentityCipher_postalCode_Maybe (Maybe String)
275264
276−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe _
277−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe where
265+derive instance newtypeCipher_IdentityCipher_postalCode_Maybe :: Newtype Cipher_IdentityCipher_postalCode_Maybe _
266+instance encodeJsonCipher_IdentityCipher_postalCode_Maybe :: EncodeJson Cipher_IdentityCipher_postalCode_Maybe where
278267 encodeJson = genericEncodeAeson Argonaut.defaultOptions
279−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe where
268+instance decodeJsonCipher_IdentityCipher_postalCode_Maybe :: DecodeJson Cipher_IdentityCipher_postalCode_Maybe where
280269 decodeJson = genericDecodeAeson Argonaut.defaultOptions
281−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe _
282−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
283−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
270+derive instance genericCipher_IdentityCipher_postalCode_Maybe :: Generic Cipher_IdentityCipher_postalCode_Maybe _
271+derive instance eqCipher_IdentityCipher_postalCode_Maybe :: Eq Cipher_IdentityCipher_postalCode_Maybe
272+derive instance ordCipher_IdentityCipher_postalCode_Maybe :: Ord Cipher_IdentityCipher_postalCode_Maybe
284273
285−newtype Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe =
286− Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe (Maybe String)
274+newtype Cipher_IdentityCipher_ssn_Maybe =
275+ Cipher_IdentityCipher_ssn_Maybe (Maybe String)
287276
288−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe _
289−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe where
277+derive instance newtypeCipher_IdentityCipher_ssn_Maybe :: Newtype Cipher_IdentityCipher_ssn_Maybe _
278+instance encodeJsonCipher_IdentityCipher_ssn_Maybe :: EncodeJson Cipher_IdentityCipher_ssn_Maybe where
290279 encodeJson = genericEncodeAeson Argonaut.defaultOptions
291−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe where
280+instance decodeJsonCipher_IdentityCipher_ssn_Maybe :: DecodeJson Cipher_IdentityCipher_ssn_Maybe where
292281 decodeJson = genericDecodeAeson Argonaut.defaultOptions
293−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe _
294−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
295−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
282+derive instance genericCipher_IdentityCipher_ssn_Maybe :: Generic Cipher_IdentityCipher_ssn_Maybe _
283+derive instance eqCipher_IdentityCipher_ssn_Maybe :: Eq Cipher_IdentityCipher_ssn_Maybe
284+derive instance ordCipher_IdentityCipher_ssn_Maybe :: Ord Cipher_IdentityCipher_ssn_Maybe
296285
297−newtype Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe =
298− Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe (Maybe String)
286+newtype Cipher_IdentityCipher_state_Maybe =
287+ Cipher_IdentityCipher_state_Maybe (Maybe String)
299288
300−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe _
301−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe where
289+derive instance newtypeCipher_IdentityCipher_state_Maybe :: Newtype Cipher_IdentityCipher_state_Maybe _
290+instance encodeJsonCipher_IdentityCipher_state_Maybe :: EncodeJson Cipher_IdentityCipher_state_Maybe where
302291 encodeJson = genericEncodeAeson Argonaut.defaultOptions
303−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe where
292+instance decodeJsonCipher_IdentityCipher_state_Maybe :: DecodeJson Cipher_IdentityCipher_state_Maybe where
304293 decodeJson = genericDecodeAeson Argonaut.defaultOptions
305−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe _
306−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
307−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
294+derive instance genericCipher_IdentityCipher_state_Maybe :: Generic Cipher_IdentityCipher_state_Maybe _
295+derive instance eqCipher_IdentityCipher_state_Maybe :: Eq Cipher_IdentityCipher_state_Maybe
296+derive instance ordCipher_IdentityCipher_state_Maybe :: Ord Cipher_IdentityCipher_state_Maybe
308297
309−newtype Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe =
310− Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe (Maybe String)
298+newtype Cipher_IdentityCipher_title_Maybe =
299+ Cipher_IdentityCipher_title_Maybe (Maybe String)
311300
312−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe _
313−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe where
301+derive instance newtypeCipher_IdentityCipher_title_Maybe :: Newtype Cipher_IdentityCipher_title_Maybe _
302+instance encodeJsonCipher_IdentityCipher_title_Maybe :: EncodeJson Cipher_IdentityCipher_title_Maybe where
314303 encodeJson = genericEncodeAeson Argonaut.defaultOptions
315−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe where
304+instance decodeJsonCipher_IdentityCipher_title_Maybe :: DecodeJson Cipher_IdentityCipher_title_Maybe where
316305 decodeJson = genericDecodeAeson Argonaut.defaultOptions
317−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe _
318−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
319−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
306+derive instance genericCipher_IdentityCipher_title_Maybe :: Generic Cipher_IdentityCipher_title_Maybe _
307+derive instance eqCipher_IdentityCipher_title_Maybe :: Eq Cipher_IdentityCipher_title_Maybe
308+derive instance ordCipher_IdentityCipher_title_Maybe :: Ord Cipher_IdentityCipher_title_Maybe
320309
321−newtype Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe =
322− Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe (Maybe String)
310+newtype Cipher_IdentityCipher_username_Maybe =
311+ Cipher_IdentityCipher_username_Maybe (Maybe String)
323312
324−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe _
325−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe where
313+derive instance newtypeCipher_IdentityCipher_username_Maybe :: Newtype Cipher_IdentityCipher_username_Maybe _
314+instance encodeJsonCipher_IdentityCipher_username_Maybe :: EncodeJson Cipher_IdentityCipher_username_Maybe where
326315 encodeJson = genericEncodeAeson Argonaut.defaultOptions
327−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe where
316+instance decodeJsonCipher_IdentityCipher_username_Maybe :: DecodeJson Cipher_IdentityCipher_username_Maybe where
328317 decodeJson = genericDecodeAeson Argonaut.defaultOptions
329−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe _
330−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
331−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
318+derive instance genericCipher_IdentityCipher_username_Maybe :: Generic Cipher_IdentityCipher_username_Maybe _
319+derive instance eqCipher_IdentityCipher_username_Maybe :: Eq Cipher_IdentityCipher_username_Maybe
320+derive instance ordCipher_IdentityCipher_username_Maybe :: Ord Cipher_IdentityCipher_username_Maybe
332321
333−newtype Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe =
334− Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe (Maybe String)
322+newtype Cipher_IdentityCipher =
323+ Cipher_IdentityCipher {
324+ address1 :: Cipher_IdentityCipher_address1_Maybe
325+ , address2 :: Cipher_IdentityCipher_address2_Maybe
326+ , address3 :: Cipher_IdentityCipher_address3_Maybe
327+ , city :: Cipher_IdentityCipher_city_Maybe
328+ , company :: Cipher_IdentityCipher_company_Maybe
329+ , country :: Cipher_IdentityCipher_country_Maybe
330+ , email :: Cipher_IdentityCipher_email_Maybe
331+ , firstName :: Cipher_IdentityCipher_firstName_Maybe
332+ , lastName :: Cipher_IdentityCipher_lastName_Maybe
333+ , licenseNumber :: Cipher_IdentityCipher_licenseNumber_Maybe
334+ , middleName :: Cipher_IdentityCipher_middleName_Maybe
335+ , passportNumber :: Cipher_IdentityCipher_passportNumber_Maybe
336+ , phone :: Cipher_IdentityCipher_phone_Maybe
337+ , postalCode :: Cipher_IdentityCipher_postalCode_Maybe
338+ , ssn :: Cipher_IdentityCipher_ssn_Maybe
339+ , state :: Cipher_IdentityCipher_state_Maybe
340+ , title :: Cipher_IdentityCipher_title_Maybe
341+ , username :: Cipher_IdentityCipher_username_Maybe
342+ }
335343
336−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe _
337−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe where
344+derive instance newtypeCipher_IdentityCipher :: Newtype Cipher_IdentityCipher _
345+instance encodeJsonCipher_IdentityCipher :: EncodeJson Cipher_IdentityCipher where
338346 encodeJson = genericEncodeAeson Argonaut.defaultOptions
339−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe where
347+instance decodeJsonCipher_IdentityCipher :: DecodeJson Cipher_IdentityCipher where
340348 decodeJson = genericDecodeAeson Argonaut.defaultOptions
341−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe _
342−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
343−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
349+derive instance genericCipher_IdentityCipher :: Generic Cipher_IdentityCipher _
350+derive instance eqCipher_IdentityCipher :: Eq Cipher_IdentityCipher
351+derive instance ordCipher_IdentityCipher :: Ord Cipher_IdentityCipher
344352
345−newtype Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe =
346− Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe (Maybe String)
353+newtype Cipher_LoginCipher_password_Maybe =
354+ Cipher_LoginCipher_password_Maybe (Maybe String)
347355
348−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe _
349−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe where
356+derive instance newtypeCipher_LoginCipher_password_Maybe :: Newtype Cipher_LoginCipher_password_Maybe _
357+instance encodeJsonCipher_LoginCipher_password_Maybe :: EncodeJson Cipher_LoginCipher_password_Maybe where
350358 encodeJson = genericEncodeAeson Argonaut.defaultOptions
351−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe where
359+instance decodeJsonCipher_LoginCipher_password_Maybe :: DecodeJson Cipher_LoginCipher_password_Maybe where
352360 decodeJson = genericDecodeAeson Argonaut.defaultOptions
353−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe _
354−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
355−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
361+derive instance genericCipher_LoginCipher_password_Maybe :: Generic Cipher_LoginCipher_password_Maybe _
362+derive instance eqCipher_LoginCipher_password_Maybe :: Eq Cipher_LoginCipher_password_Maybe
363+derive instance ordCipher_LoginCipher_password_Maybe :: Ord Cipher_LoginCipher_password_Maybe
356364
357−newtype Sub_LoadCipher_cipherType_IdentityCipher =
358− Sub_LoadCipher_cipherType_IdentityCipher {
359− address1 :: Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
360− , address2 :: Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
361− , address3 :: Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
362− , city :: Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
363− , company :: Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
364− , country :: Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
365− , email :: Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
366− , firstName :: Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
367− , lastName :: Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
368− , licenseNumber :: Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
369− , middleName :: Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
370− , passportNumber :: Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
371− , phone :: Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
372− , postalCode :: Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
373− , ssn :: Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
374− , state :: Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
375− , title :: Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
376− , username :: Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
377− }
365+newtype Cipher_LoginCipher_uris_List =
366+ Cipher_LoginCipher_uris_List (Array String)
378367
379−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher :: Newtype Sub_LoadCipher_cipherType_IdentityCipher _
380−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher where
368+derive instance newtypeCipher_LoginCipher_uris_List :: Newtype Cipher_LoginCipher_uris_List _
369+instance encodeJsonCipher_LoginCipher_uris_List :: EncodeJson Cipher_LoginCipher_uris_List where
381370 encodeJson = genericEncodeAeson Argonaut.defaultOptions
382−instance decodeJsonSub_LoadCipher_cipherType_IdentityCipher :: DecodeJson Sub_LoadCipher_cipherType_IdentityCipher where
371+instance decodeJsonCipher_LoginCipher_uris_List :: DecodeJson Cipher_LoginCipher_uris_List where
383372 decodeJson = genericDecodeAeson Argonaut.defaultOptions
384−derive instance genericSub_LoadCipher_cipherType_IdentityCipher :: Generic Sub_LoadCipher_cipherType_IdentityCipher _
385−derive instance eqSub_LoadCipher_cipherType_IdentityCipher :: Eq Sub_LoadCipher_cipherType_IdentityCipher
386−derive instance ordSub_LoadCipher_cipherType_IdentityCipher :: Ord Sub_LoadCipher_cipherType_IdentityCipher
373+derive instance genericCipher_LoginCipher_uris_List :: Generic Cipher_LoginCipher_uris_List _
374+derive instance eqCipher_LoginCipher_uris_List :: Eq Cipher_LoginCipher_uris_List
375+derive instance ordCipher_LoginCipher_uris_List :: Ord Cipher_LoginCipher_uris_List
387376
388−newtype Sub_LoadCipher_cipherType_LoginCipher_password_Maybe =
389− Sub_LoadCipher_cipherType_LoginCipher_password_Maybe (Maybe String)
377+newtype Cipher_LoginCipher_username_Maybe =
378+ Cipher_LoginCipher_username_Maybe (Maybe String)
390379
391−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Newtype Sub_LoadCipher_cipherType_LoginCipher_password_Maybe _
392−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_password_Maybe where
380+derive instance newtypeCipher_LoginCipher_username_Maybe :: Newtype Cipher_LoginCipher_username_Maybe _
381+instance encodeJsonCipher_LoginCipher_username_Maybe :: EncodeJson Cipher_LoginCipher_username_Maybe where
393382 encodeJson = genericEncodeAeson Argonaut.defaultOptions
394−instance decodeJsonSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: DecodeJson Sub_LoadCipher_cipherType_LoginCipher_password_Maybe where
383+instance decodeJsonCipher_LoginCipher_username_Maybe :: DecodeJson Cipher_LoginCipher_username_Maybe where
395384 decodeJson = genericDecodeAeson Argonaut.defaultOptions
396−derive instance genericSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Generic Sub_LoadCipher_cipherType_LoginCipher_password_Maybe _
397−derive instance eqSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Eq Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
398−derive instance ordSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Ord Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
385+derive instance genericCipher_LoginCipher_username_Maybe :: Generic Cipher_LoginCipher_username_Maybe _
386+derive instance eqCipher_LoginCipher_username_Maybe :: Eq Cipher_LoginCipher_username_Maybe
387+derive instance ordCipher_LoginCipher_username_Maybe :: Ord Cipher_LoginCipher_username_Maybe
399388
400−newtype Sub_LoadCipher_cipherType_LoginCipher_uris_List =
401− Sub_LoadCipher_cipherType_LoginCipher_uris_List (Array String)
389+newtype Cipher_LoginCipher =
390+ Cipher_LoginCipher {
391+ password :: Cipher_LoginCipher_password_Maybe
392+ , uris :: Cipher_LoginCipher_uris_List
393+ , username :: Cipher_LoginCipher_username_Maybe
394+ }
402395
403−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_uris_List :: Newtype Sub_LoadCipher_cipherType_LoginCipher_uris_List _
404−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_uris_List :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_uris_List where
396+derive instance newtypeCipher_LoginCipher :: Newtype Cipher_LoginCipher _
397+instance encodeJsonCipher_LoginCipher :: EncodeJson Cipher_LoginCipher where
405398 encodeJson = genericEncodeAeson Argonaut.defaultOptions
406−instance decodeJsonSub_LoadCipher_cipherType_LoginCipher_uris_List :: DecodeJson Sub_LoadCipher_cipherType_LoginCipher_uris_List where
399+instance decodeJsonCipher_LoginCipher :: DecodeJson Cipher_LoginCipher where
407400 decodeJson = genericDecodeAeson Argonaut.defaultOptions
408−derive instance genericSub_LoadCipher_cipherType_LoginCipher_uris_List :: Generic Sub_LoadCipher_cipherType_LoginCipher_uris_List _
409−derive instance eqSub_LoadCipher_cipherType_LoginCipher_uris_List :: Eq Sub_LoadCipher_cipherType_LoginCipher_uris_List
410−derive instance ordSub_LoadCipher_cipherType_LoginCipher_uris_List :: Ord Sub_LoadCipher_cipherType_LoginCipher_uris_List
401+derive instance genericCipher_LoginCipher :: Generic Cipher_LoginCipher _
402+derive instance eqCipher_LoginCipher :: Eq Cipher_LoginCipher
403+derive instance ordCipher_LoginCipher :: Ord Cipher_LoginCipher
404+
405+data Cipher =
406+ CardCipher Cipher_CardCipher
407+ | IdentityCipher Cipher_IdentityCipher
408+ | LoginCipher Cipher_LoginCipher
409+ | NoteCipher String
411410
412−newtype Sub_LoadCipher_cipherType_LoginCipher_username_Maybe =
413− Sub_LoadCipher_cipherType_LoginCipher_username_Maybe (Maybe String)
411+instance encodeJsonCipher :: EncodeJson Cipher where
412+ encodeJson = genericEncodeAeson Argonaut.defaultOptions
413+instance decodeJsonCipher :: DecodeJson Cipher where
414+ decodeJson = genericDecodeAeson Argonaut.defaultOptions
415+derive instance genericCipher :: Generic Cipher _
416+derive instance eqCipher :: Eq Cipher
417+derive instance ordCipher :: Ord Cipher
418+
419+data CipherType =
420+ CardType
421+ | IdentityType
422+ | LoginType
423+ | NoteType
414424
415−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Newtype Sub_LoadCipher_cipherType_LoginCipher_username_Maybe _
416−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_username_Maybe where
425+instance encodeJsonCipherType :: EncodeJson CipherType where
417426 encodeJson = genericEncodeAeson Argonaut.defaultOptions
418−instance decodeJsonSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: DecodeJson Sub_LoadCipher_cipherType_LoginCipher_username_Maybe where
427+instance decodeJsonCipherType :: DecodeJson CipherType where
419428 decodeJson = genericDecodeAeson Argonaut.defaultOptions
420−derive instance genericSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Generic Sub_LoadCipher_cipherType_LoginCipher_username_Maybe _
421−derive instance eqSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Eq Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
422−derive instance ordSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Ord Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
429+derive instance genericCipherType :: Generic CipherType _
430+derive instance eqCipherType :: Eq CipherType
431+derive instance ordCipherType :: Ord CipherType
423432
424−newtype Sub_LoadCipher_cipherType_LoginCipher =
425− Sub_LoadCipher_cipherType_LoginCipher {
426− password :: Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
427− , uris :: Sub_LoadCipher_cipherType_LoginCipher_uris_List
428− , username :: Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
433+newtype Cmd_Login =
434+ Cmd_Login {
435+ email :: String
436+ , password :: String
437+ , server :: String
429438 }
430439
431−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher :: Newtype Sub_LoadCipher_cipherType_LoginCipher _
432−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher where
440+derive instance newtypeCmd_Login :: Newtype Cmd_Login _
441+instance encodeJsonCmd_Login :: EncodeJson Cmd_Login where
433442 encodeJson = genericEncodeAeson Argonaut.defaultOptions
434−instance decodeJsonSub_LoadCipher_cipherType_LoginCipher :: DecodeJson Sub_LoadCipher_cipherType_LoginCipher where
443+instance decodeJsonCmd_Login :: DecodeJson Cmd_Login where
435444 decodeJson = genericDecodeAeson Argonaut.defaultOptions
436−derive instance genericSub_LoadCipher_cipherType_LoginCipher :: Generic Sub_LoadCipher_cipherType_LoginCipher _
437−derive instance eqSub_LoadCipher_cipherType_LoginCipher :: Eq Sub_LoadCipher_cipherType_LoginCipher
438−derive instance ordSub_LoadCipher_cipherType_LoginCipher :: Ord Sub_LoadCipher_cipherType_LoginCipher
445+derive instance genericCmd_Login :: Generic Cmd_Login _
446+derive instance eqCmd_Login :: Eq Cmd_Login
447+derive instance ordCmd_Login :: Ord Cmd_Login
439448
440−data Sub_LoadCipher_cipherType =
441− CardCipher Sub_LoadCipher_cipherType_CardCipher
442− | IdentityCipher Sub_LoadCipher_cipherType_IdentityCipher
443− | LoginCipher Sub_LoadCipher_cipherType_LoginCipher
444− | NoteCipher String
449+data Cmd =
450+ Copy String
451+ | Init
452+ | Login Cmd_Login
453+ | NeedCiphersList
454+ | NeedEmail
455+ | NeedsReset
456+ | Open String
457+ | RequestCipher String
458+ | SendMasterPassword String
445459
446−instance encodeJsonSub_LoadCipher_cipherType :: EncodeJson Sub_LoadCipher_cipherType where
460+instance encodeJsonCmd :: EncodeJson Cmd where
447461 encodeJson = genericEncodeAeson Argonaut.defaultOptions
448−instance decodeJsonSub_LoadCipher_cipherType :: DecodeJson Sub_LoadCipher_cipherType where
462+instance decodeJsonCmd :: DecodeJson Cmd where
449463 decodeJson = genericDecodeAeson Argonaut.defaultOptions
450−derive instance genericSub_LoadCipher_cipherType :: Generic Sub_LoadCipher_cipherType _
451−derive instance eqSub_LoadCipher_cipherType :: Eq Sub_LoadCipher_cipherType
452−derive instance ordSub_LoadCipher_cipherType :: Ord Sub_LoadCipher_cipherType
464+derive instance genericCmd :: Generic Cmd _
465+derive instance eqCmd :: Eq Cmd
466+derive instance ordCmd :: Ord Cmd
453467
454468newtype Sub_LoadCipher =
455469 Sub_LoadCipher {
456− cipherType :: Sub_LoadCipher_cipherType
470+ cipherType :: Cipher
457471 , id :: String
458472 , name :: String
459473 }
@@ -467,23 +481,9 @@ derive instance genericSub_LoadCipher :: Generic Sub_LoadCipher _
467481derive instance eqSub_LoadCipher :: Eq Sub_LoadCipher
468482derive instance ordSub_LoadCipher :: Ord Sub_LoadCipher
469483
470−data Sub_LoadCiphers_cipherType =
471− CardType
472− | IdentityType
473− | LoginType
474− | NoteType
475−
476−instance encodeJsonSub_LoadCiphers_cipherType :: EncodeJson Sub_LoadCiphers_cipherType where
477− encodeJson = genericEncodeAeson Argonaut.defaultOptions
478−instance decodeJsonSub_LoadCiphers_cipherType :: DecodeJson Sub_LoadCiphers_cipherType where
479− decodeJson = genericDecodeAeson Argonaut.defaultOptions
480−derive instance genericSub_LoadCiphers_cipherType :: Generic Sub_LoadCiphers_cipherType _
481−derive instance eqSub_LoadCiphers_cipherType :: Eq Sub_LoadCiphers_cipherType
482−derive instance ordSub_LoadCiphers_cipherType :: Ord Sub_LoadCiphers_cipherType
483−
484484newtype Sub_LoadCiphers =
485485 Sub_LoadCiphers {
486− cipherType :: Sub_LoadCiphers_cipherType
486+ cipherType :: CipherType
487487 , date :: String
488488 , id :: String
489489 , name :: String
backend/Main.purs+2−2
@@ -143,7 +143,7 @@ main = do
143143 username <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.username)
144144 password <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.password)
145145 uris <- fromJOpt [] <$> ((traverse >>> traverse) (_.uri >>> decrypt) login.uris)
146− pure $ Bridge.LoginCipher $ Bridge.Sub_LoadCipher_cipherType_LoginCipher
146+ pure $ Bridge.LoginCipher $ Bridge.Cipher_LoginCipher
147147 { username
148148 , password
149149 , uris: wrap uris
@@ -158,7 +158,7 @@ main = do
158158 brand <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.brand)
159159 expMonth <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.expMonth)
160160 expYear <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.expYear)
161− pure $ Bridge.CardCipher $ Bridge.Sub_LoadCipher_cipherType_CardCipher
161+ pure $ Bridge.CardCipher $ Bridge.Cipher_CardCipher
162162 { brand, cardholderName, code, expMonth, expYear, number }
163163 n | cipherTypeIdentity == n -> do
164164 case JNullable.toMaybe cipher.identity of
bridge.yaml+68−63
@@ -6,11 +6,7 @@ Sub:
66 name: String
77 date: String
88 id: String
9− cipherType:
10− - LoginType
11− - CardType
12− - NoteType
13− - IdentityType
9+ cipherType: CipherType
1410- LoginSuccessful
1511- NeedsMasterPassword:
1612 server: String
@@ -19,64 +15,7 @@ Sub:
1915- LoadCipher:
2016 id: String
2117 name: String
22− cipherType:
23− - LoginCipher:
24− uris: {List: String}
25− username:
26− Maybe: String
27− password:
28− Maybe: String
29− - NoteCipher: String
30− - CardCipher:
31− cardholderName:
32− Maybe: String
33− brand:
34− Maybe: String
35− number:
36− Maybe: String
37− expMonth:
38− Maybe: String
39− expYear:
40− Maybe: String
41− code:
42− Maybe: String
43− - IdentityCipher:
44− title:
45− Maybe: String
46− firstName:
47− Maybe: String
48− middleName:
49− Maybe: String
50− lastName:
51− Maybe: String
52− address1:
53− Maybe: String
54− address2:
55− Maybe: String
56− address3:
57− Maybe: String
58− city:
59− Maybe: String
60− state:
61− Maybe: String
62− postalCode:
63− Maybe: String
64− country:
65− Maybe: String
66− company:
67− Maybe: String
68− email:
69− Maybe: String
70− phone:
71− Maybe: String
72− ssn:
73− Maybe: String
74− username:
75− Maybe: String
76− passportNumber:
77− Maybe: String
78− licenseNumber:
79− Maybe: String
18+ cipherType: Cipher
8019- RecieveEmail: String
8120
8221Cmd:
@@ -92,3 +31,69 @@ Cmd:
9231- NeedEmail
9332- Copy: String
9433- Open: String
34+
35+
36+Cipher:
37+- LoginCipher:
38+ uris: {List: String}
39+ username:
40+ Maybe: String
41+ password:
42+ Maybe: String
43+- NoteCipher: String
44+- CardCipher:
45+ cardholderName:
46+ Maybe: String
47+ brand:
48+ Maybe: String
49+ number:
50+ Maybe: String
51+ expMonth:
52+ Maybe: String
53+ expYear:
54+ Maybe: String
55+ code:
56+ Maybe: String
57+- IdentityCipher:
58+ title:
59+ Maybe: String
60+ firstName:
61+ Maybe: String
62+ middleName:
63+ Maybe: String
64+ lastName:
65+ Maybe: String
66+ address1:
67+ Maybe: String
68+ address2:
69+ Maybe: String
70+ address3:
71+ Maybe: String
72+ city:
73+ Maybe: String
74+ state:
75+ Maybe: String
76+ postalCode:
77+ Maybe: String
78+ country:
79+ Maybe: String
80+ company:
81+ Maybe: String
82+ email:
83+ Maybe: String
84+ phone:
85+ Maybe: String
86+ ssn:
87+ Maybe: String
88+ username:
89+ Maybe: String
90+ passportNumber:
91+ Maybe: String
92+ licenseNumber:
93+ Maybe: String
94+
95+CipherType:
96+- LoginType
97+- CardType
98+- NoteType
99+- IdentityType
frontend/Bridge.elm+346−346
@@ -8,522 +8,543 @@ import Dict exposing (Dict)
88import Set exposing (Set)
99
1010
11−type alias Cmd_Login =
12− { email: String
13− , password: String
14− , server: String
15− }
16−
17−jsonDecCmd_Login : Json.Decode.Decoder ( Cmd_Login )
18−jsonDecCmd_Login =
19− Json.Decode.succeed (\pemail ppassword pserver -> {email = pemail, password = ppassword, server = pserver})
20− |> required "email" (Json.Decode.string)
21− |> required "password" (Json.Decode.string)
22− |> required "server" (Json.Decode.string)
23−
24−jsonEncCmd_Login : Cmd_Login -> Value
25−jsonEncCmd_Login val =
26− Json.Encode.object
27− [ ("email", Json.Encode.string val.email)
28− , ("password", Json.Encode.string val.password)
29− , ("server", Json.Encode.string val.server)
30− ]
31−
32−
33−
34−type Cmd =
35− Copy String
36− | Init
37− | Login Cmd_Login
38− | NeedCiphersList
39− | NeedEmail
40− | NeedsReset
41− | Open String
42− | RequestCipher String
43− | SendMasterPassword String
44−
45−jsonDecCmd : Json.Decode.Decoder ( Cmd )
46−jsonDecCmd =
47− let jsonDecDictCmd = Dict.fromList
48− [ ("Copy", Json.Decode.lazy (\_ -> Json.Decode.map Copy (Json.Decode.string)))
49− , ("Init", Json.Decode.lazy (\_ -> Json.Decode.succeed Init))
50− , ("Login", Json.Decode.lazy (\_ -> Json.Decode.map Login (jsonDecCmd_Login)))
51− , ("NeedCiphersList", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedCiphersList))
52− , ("NeedEmail", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedEmail))
53− , ("NeedsReset", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedsReset))
54− , ("Open", Json.Decode.lazy (\_ -> Json.Decode.map Open (Json.Decode.string)))
55− , ("RequestCipher", Json.Decode.lazy (\_ -> Json.Decode.map RequestCipher (Json.Decode.string)))
56− , ("SendMasterPassword", Json.Decode.lazy (\_ -> Json.Decode.map SendMasterPassword (Json.Decode.string)))
57− ]
58− jsonDecObjectSetCmd = Set.fromList []
59− in decodeSumTaggedObject "Cmd" "tag" "contents" jsonDecDictCmd jsonDecObjectSetCmd
60−
61−jsonEncCmd : Cmd -> Value
62−jsonEncCmd val =
63− let keyval v = case v of
64− Copy v1 -> ("Copy", encodeValue (Json.Encode.string v1))
65− Init -> ("Init", encodeValue (Json.Encode.list identity []))
66− Login v1 -> ("Login", encodeValue (jsonEncCmd_Login v1))
67− NeedCiphersList -> ("NeedCiphersList", encodeValue (Json.Encode.list identity []))
68− NeedEmail -> ("NeedEmail", encodeValue (Json.Encode.list identity []))
69− NeedsReset -> ("NeedsReset", encodeValue (Json.Encode.list identity []))
70− Open v1 -> ("Open", encodeValue (Json.Encode.string v1))
71− RequestCipher v1 -> ("RequestCipher", encodeValue (Json.Encode.string v1))
72− SendMasterPassword v1 -> ("SendMasterPassword", encodeValue (Json.Encode.string v1))
73− in encodeSumTaggedObject "tag" "contents" keyval val
74−
75−
11+type alias Cipher_CardCipher_brand_Maybe = (Maybe String)
7612
77−type alias Sub_LoadCipher_cipherType_CardCipher_brand_Maybe = (Maybe String)
78−
79−jsonDecSub_LoadCipher_cipherType_CardCipher_brand_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_brand_Maybe )
80−jsonDecSub_LoadCipher_cipherType_CardCipher_brand_Maybe =
13+jsonDecCipher_CardCipher_brand_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_brand_Maybe )
14+jsonDecCipher_CardCipher_brand_Maybe =
8115 Json.Decode.maybe (Json.Decode.string)
8216
83−jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe : Sub_LoadCipher_cipherType_CardCipher_brand_Maybe -> Value
84−jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe val = (maybeEncode (Json.Encode.string)) val
17+jsonEncCipher_CardCipher_brand_Maybe : Cipher_CardCipher_brand_Maybe -> Value
18+jsonEncCipher_CardCipher_brand_Maybe val = (maybeEncode (Json.Encode.string)) val
8519
8620
8721
88−type alias Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe = (Maybe String)
22+type alias Cipher_CardCipher_cardholderName_Maybe = (Maybe String)
8923
90−jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe )
91−jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe =
24+jsonDecCipher_CardCipher_cardholderName_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_cardholderName_Maybe )
25+jsonDecCipher_CardCipher_cardholderName_Maybe =
9226 Json.Decode.maybe (Json.Decode.string)
9327
94−jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe : Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe -> Value
95−jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe val = (maybeEncode (Json.Encode.string)) val
28+jsonEncCipher_CardCipher_cardholderName_Maybe : Cipher_CardCipher_cardholderName_Maybe -> Value
29+jsonEncCipher_CardCipher_cardholderName_Maybe val = (maybeEncode (Json.Encode.string)) val
9630
9731
9832
99−type alias Sub_LoadCipher_cipherType_CardCipher_code_Maybe = (Maybe String)
33+type alias Cipher_CardCipher_code_Maybe = (Maybe String)
10034
101−jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_code_Maybe )
102−jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe =
35+jsonDecCipher_CardCipher_code_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_code_Maybe )
36+jsonDecCipher_CardCipher_code_Maybe =
10337 Json.Decode.maybe (Json.Decode.string)
10438
105−jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe : Sub_LoadCipher_cipherType_CardCipher_code_Maybe -> Value
106−jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe val = (maybeEncode (Json.Encode.string)) val
39+jsonEncCipher_CardCipher_code_Maybe : Cipher_CardCipher_code_Maybe -> Value
40+jsonEncCipher_CardCipher_code_Maybe val = (maybeEncode (Json.Encode.string)) val
10741
10842
10943
110−type alias Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe = (Maybe String)
44+type alias Cipher_CardCipher_expMonth_Maybe = (Maybe String)
11145
112−jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe )
113−jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe =
46+jsonDecCipher_CardCipher_expMonth_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_expMonth_Maybe )
47+jsonDecCipher_CardCipher_expMonth_Maybe =
11448 Json.Decode.maybe (Json.Decode.string)
11549
116−jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe : Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe -> Value
117−jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe val = (maybeEncode (Json.Encode.string)) val
50+jsonEncCipher_CardCipher_expMonth_Maybe : Cipher_CardCipher_expMonth_Maybe -> Value
51+jsonEncCipher_CardCipher_expMonth_Maybe val = (maybeEncode (Json.Encode.string)) val
11852
11953
12054
121−type alias Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe = (Maybe String)
55+type alias Cipher_CardCipher_expYear_Maybe = (Maybe String)
12256
123−jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe )
124−jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe =
57+jsonDecCipher_CardCipher_expYear_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_expYear_Maybe )
58+jsonDecCipher_CardCipher_expYear_Maybe =
12559 Json.Decode.maybe (Json.Decode.string)
12660
127−jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe : Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe -> Value
128−jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe val = (maybeEncode (Json.Encode.string)) val
61+jsonEncCipher_CardCipher_expYear_Maybe : Cipher_CardCipher_expYear_Maybe -> Value
62+jsonEncCipher_CardCipher_expYear_Maybe val = (maybeEncode (Json.Encode.string)) val
12963
13064
13165
132−type alias Sub_LoadCipher_cipherType_CardCipher_number_Maybe = (Maybe String)
66+type alias Cipher_CardCipher_number_Maybe = (Maybe String)
13367
134−jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_number_Maybe )
135−jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe =
68+jsonDecCipher_CardCipher_number_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_number_Maybe )
69+jsonDecCipher_CardCipher_number_Maybe =
13670 Json.Decode.maybe (Json.Decode.string)
13771
138−jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe : Sub_LoadCipher_cipherType_CardCipher_number_Maybe -> Value
139−jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe val = (maybeEncode (Json.Encode.string)) val
72+jsonEncCipher_CardCipher_number_Maybe : Cipher_CardCipher_number_Maybe -> Value
73+jsonEncCipher_CardCipher_number_Maybe val = (maybeEncode (Json.Encode.string)) val
14074
14175
14276
143−type alias Sub_LoadCipher_cipherType_CardCipher =
144− { brand: Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
145− , cardholderName: Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
146− , code: Sub_LoadCipher_cipherType_CardCipher_code_Maybe
147− , expMonth: Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
148− , expYear: Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
149− , number: Sub_LoadCipher_cipherType_CardCipher_number_Maybe
77+type alias Cipher_CardCipher =
78+ { brand: Cipher_CardCipher_brand_Maybe
79+ , cardholderName: Cipher_CardCipher_cardholderName_Maybe
80+ , code: Cipher_CardCipher_code_Maybe
81+ , expMonth: Cipher_CardCipher_expMonth_Maybe
82+ , expYear: Cipher_CardCipher_expYear_Maybe
83+ , number: Cipher_CardCipher_number_Maybe
15084 }
15185
152−jsonDecSub_LoadCipher_cipherType_CardCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher )
153−jsonDecSub_LoadCipher_cipherType_CardCipher =
86+jsonDecCipher_CardCipher : Json.Decode.Decoder ( Cipher_CardCipher )
87+jsonDecCipher_CardCipher =
15488 Json.Decode.succeed (\pbrand pcardholderName pcode pexpMonth pexpYear pnumber -> {brand = pbrand, cardholderName = pcardholderName, code = pcode, expMonth = pexpMonth, expYear = pexpYear, number = pnumber})
155− |> required "brand" (jsonDecSub_LoadCipher_cipherType_CardCipher_brand_Maybe)
156− |> required "cardholderName" (jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe)
157− |> required "code" (jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe)
158− |> required "expMonth" (jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe)
159− |> required "expYear" (jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe)
160− |> required "number" (jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe)
161−
162−jsonEncSub_LoadCipher_cipherType_CardCipher : Sub_LoadCipher_cipherType_CardCipher -> Value
163−jsonEncSub_LoadCipher_cipherType_CardCipher val =
89+ |> required "brand" (jsonDecCipher_CardCipher_brand_Maybe)
90+ |> required "cardholderName" (jsonDecCipher_CardCipher_cardholderName_Maybe)
91+ |> required "code" (jsonDecCipher_CardCipher_code_Maybe)
92+ |> required "expMonth" (jsonDecCipher_CardCipher_expMonth_Maybe)
93+ |> required "expYear" (jsonDecCipher_CardCipher_expYear_Maybe)
94+ |> required "number" (jsonDecCipher_CardCipher_number_Maybe)
95+
96+jsonEncCipher_CardCipher : Cipher_CardCipher -> Value
97+jsonEncCipher_CardCipher val =
16498 Json.Encode.object
165− [ ("brand", jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe val.brand)
166− , ("cardholderName", jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe val.cardholderName)
167− , ("code", jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe val.code)
168− , ("expMonth", jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe val.expMonth)
169− , ("expYear", jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe val.expYear)
170− , ("number", jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe val.number)
99+ [ ("brand", jsonEncCipher_CardCipher_brand_Maybe val.brand)
100+ , ("cardholderName", jsonEncCipher_CardCipher_cardholderName_Maybe val.cardholderName)
101+ , ("code", jsonEncCipher_CardCipher_code_Maybe val.code)
102+ , ("expMonth", jsonEncCipher_CardCipher_expMonth_Maybe val.expMonth)
103+ , ("expYear", jsonEncCipher_CardCipher_expYear_Maybe val.expYear)
104+ , ("number", jsonEncCipher_CardCipher_number_Maybe val.number)
171105 ]
172106
173107
174108
175−type alias Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe = (Maybe String)
109+type alias Cipher_IdentityCipher_address1_Maybe = (Maybe String)
176110
177−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe )
178−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe =
111+jsonDecCipher_IdentityCipher_address1_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address1_Maybe )
112+jsonDecCipher_IdentityCipher_address1_Maybe =
179113 Json.Decode.maybe (Json.Decode.string)
180114
181−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe -> Value
182−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe val = (maybeEncode (Json.Encode.string)) val
115+jsonEncCipher_IdentityCipher_address1_Maybe : Cipher_IdentityCipher_address1_Maybe -> Value
116+jsonEncCipher_IdentityCipher_address1_Maybe val = (maybeEncode (Json.Encode.string)) val
183117
184118
185119
186−type alias Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe = (Maybe String)
120+type alias Cipher_IdentityCipher_address2_Maybe = (Maybe String)
187121
188−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe )
189−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe =
122+jsonDecCipher_IdentityCipher_address2_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address2_Maybe )
123+jsonDecCipher_IdentityCipher_address2_Maybe =
190124 Json.Decode.maybe (Json.Decode.string)
191125
192−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe -> Value
193−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe val = (maybeEncode (Json.Encode.string)) val
126+jsonEncCipher_IdentityCipher_address2_Maybe : Cipher_IdentityCipher_address2_Maybe -> Value
127+jsonEncCipher_IdentityCipher_address2_Maybe val = (maybeEncode (Json.Encode.string)) val
194128
195129
196130
197−type alias Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe = (Maybe String)
131+type alias Cipher_IdentityCipher_address3_Maybe = (Maybe String)
198132
199−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe )
200−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe =
133+jsonDecCipher_IdentityCipher_address3_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address3_Maybe )
134+jsonDecCipher_IdentityCipher_address3_Maybe =
201135 Json.Decode.maybe (Json.Decode.string)
202136
203−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe -> Value
204−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe val = (maybeEncode (Json.Encode.string)) val
137+jsonEncCipher_IdentityCipher_address3_Maybe : Cipher_IdentityCipher_address3_Maybe -> Value
138+jsonEncCipher_IdentityCipher_address3_Maybe val = (maybeEncode (Json.Encode.string)) val
205139
206140
207141
208−type alias Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe = (Maybe String)
142+type alias Cipher_IdentityCipher_city_Maybe = (Maybe String)
209143
210−jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe )
211−jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe =
144+jsonDecCipher_IdentityCipher_city_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_city_Maybe )
145+jsonDecCipher_IdentityCipher_city_Maybe =
212146 Json.Decode.maybe (Json.Decode.string)
213147
214−jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe -> Value
215−jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe val = (maybeEncode (Json.Encode.string)) val
148+jsonEncCipher_IdentityCipher_city_Maybe : Cipher_IdentityCipher_city_Maybe -> Value
149+jsonEncCipher_IdentityCipher_city_Maybe val = (maybeEncode (Json.Encode.string)) val
216150
217151
218152
219−type alias Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe = (Maybe String)
153+type alias Cipher_IdentityCipher_company_Maybe = (Maybe String)
220154
221−jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe )
222−jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe =
155+jsonDecCipher_IdentityCipher_company_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_company_Maybe )
156+jsonDecCipher_IdentityCipher_company_Maybe =
223157 Json.Decode.maybe (Json.Decode.string)
224158
225−jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe -> Value
226−jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe val = (maybeEncode (Json.Encode.string)) val
159+jsonEncCipher_IdentityCipher_company_Maybe : Cipher_IdentityCipher_company_Maybe -> Value
160+jsonEncCipher_IdentityCipher_company_Maybe val = (maybeEncode (Json.Encode.string)) val
227161
228162
229163
230−type alias Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe = (Maybe String)
164+type alias Cipher_IdentityCipher_country_Maybe = (Maybe String)
231165
232−jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe )
233−jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe =
166+jsonDecCipher_IdentityCipher_country_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_country_Maybe )
167+jsonDecCipher_IdentityCipher_country_Maybe =
234168 Json.Decode.maybe (Json.Decode.string)
235169
236−jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe -> Value
237−jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe val = (maybeEncode (Json.Encode.string)) val
170+jsonEncCipher_IdentityCipher_country_Maybe : Cipher_IdentityCipher_country_Maybe -> Value
171+jsonEncCipher_IdentityCipher_country_Maybe val = (maybeEncode (Json.Encode.string)) val
238172
239173
240174
241−type alias Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe = (Maybe String)
175+type alias Cipher_IdentityCipher_email_Maybe = (Maybe String)
242176
243−jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe )
244−jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe =
177+jsonDecCipher_IdentityCipher_email_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_email_Maybe )
178+jsonDecCipher_IdentityCipher_email_Maybe =
245179 Json.Decode.maybe (Json.Decode.string)
246180
247−jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe -> Value
248−jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe val = (maybeEncode (Json.Encode.string)) val
181+jsonEncCipher_IdentityCipher_email_Maybe : Cipher_IdentityCipher_email_Maybe -> Value
182+jsonEncCipher_IdentityCipher_email_Maybe val = (maybeEncode (Json.Encode.string)) val
249183
250184
251185
252−type alias Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe = (Maybe String)
186+type alias Cipher_IdentityCipher_firstName_Maybe = (Maybe String)
253187
254−jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe )
255−jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe =
188+jsonDecCipher_IdentityCipher_firstName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_firstName_Maybe )
189+jsonDecCipher_IdentityCipher_firstName_Maybe =
256190 Json.Decode.maybe (Json.Decode.string)
257191
258−jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe -> Value
259−jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe val = (maybeEncode (Json.Encode.string)) val
192+jsonEncCipher_IdentityCipher_firstName_Maybe : Cipher_IdentityCipher_firstName_Maybe -> Value
193+jsonEncCipher_IdentityCipher_firstName_Maybe val = (maybeEncode (Json.Encode.string)) val
260194
261195
262196
263−type alias Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe = (Maybe String)
197+type alias Cipher_IdentityCipher_lastName_Maybe = (Maybe String)
264198
265−jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe )
266−jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe =
199+jsonDecCipher_IdentityCipher_lastName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_lastName_Maybe )
200+jsonDecCipher_IdentityCipher_lastName_Maybe =
267201 Json.Decode.maybe (Json.Decode.string)
268202
269−jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe -> Value
270−jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe val = (maybeEncode (Json.Encode.string)) val
203+jsonEncCipher_IdentityCipher_lastName_Maybe : Cipher_IdentityCipher_lastName_Maybe -> Value
204+jsonEncCipher_IdentityCipher_lastName_Maybe val = (maybeEncode (Json.Encode.string)) val
271205
272206
273207
274−type alias Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe = (Maybe String)
208+type alias Cipher_IdentityCipher_licenseNumber_Maybe = (Maybe String)
275209
276−jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe )
277−jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe =
210+jsonDecCipher_IdentityCipher_licenseNumber_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_licenseNumber_Maybe )
211+jsonDecCipher_IdentityCipher_licenseNumber_Maybe =
278212 Json.Decode.maybe (Json.Decode.string)
279213
280−jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe -> Value
281−jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
214+jsonEncCipher_IdentityCipher_licenseNumber_Maybe : Cipher_IdentityCipher_licenseNumber_Maybe -> Value
215+jsonEncCipher_IdentityCipher_licenseNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
282216
283217
284218
285−type alias Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe = (Maybe String)
219+type alias Cipher_IdentityCipher_middleName_Maybe = (Maybe String)
286220
287−jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe )
288−jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe =
221+jsonDecCipher_IdentityCipher_middleName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_middleName_Maybe )
222+jsonDecCipher_IdentityCipher_middleName_Maybe =
289223 Json.Decode.maybe (Json.Decode.string)
290224
291−jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe -> Value
292−jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe val = (maybeEncode (Json.Encode.string)) val
225+jsonEncCipher_IdentityCipher_middleName_Maybe : Cipher_IdentityCipher_middleName_Maybe -> Value
226+jsonEncCipher_IdentityCipher_middleName_Maybe val = (maybeEncode (Json.Encode.string)) val
293227
294228
295229
296−type alias Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe = (Maybe String)
230+type alias Cipher_IdentityCipher_passportNumber_Maybe = (Maybe String)
297231
298−jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe )
299−jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe =
232+jsonDecCipher_IdentityCipher_passportNumber_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_passportNumber_Maybe )
233+jsonDecCipher_IdentityCipher_passportNumber_Maybe =
300234 Json.Decode.maybe (Json.Decode.string)
301235
302−jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe -> Value
303−jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
236+jsonEncCipher_IdentityCipher_passportNumber_Maybe : Cipher_IdentityCipher_passportNumber_Maybe -> Value
237+jsonEncCipher_IdentityCipher_passportNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
304238
305239
306240
307−type alias Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe = (Maybe String)
241+type alias Cipher_IdentityCipher_phone_Maybe = (Maybe String)
308242
309−jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe )
310−jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe =
243+jsonDecCipher_IdentityCipher_phone_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_phone_Maybe )
244+jsonDecCipher_IdentityCipher_phone_Maybe =
311245 Json.Decode.maybe (Json.Decode.string)
312246
313−jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe -> Value
314−jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe val = (maybeEncode (Json.Encode.string)) val
247+jsonEncCipher_IdentityCipher_phone_Maybe : Cipher_IdentityCipher_phone_Maybe -> Value
248+jsonEncCipher_IdentityCipher_phone_Maybe val = (maybeEncode (Json.Encode.string)) val
315249
316250
317251
318−type alias Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe = (Maybe String)
252+type alias Cipher_IdentityCipher_postalCode_Maybe = (Maybe String)
319253
320−jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe )
321−jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe =
254+jsonDecCipher_IdentityCipher_postalCode_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_postalCode_Maybe )
255+jsonDecCipher_IdentityCipher_postalCode_Maybe =
322256 Json.Decode.maybe (Json.Decode.string)
323257
324−jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe -> Value
325−jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe val = (maybeEncode (Json.Encode.string)) val
258+jsonEncCipher_IdentityCipher_postalCode_Maybe : Cipher_IdentityCipher_postalCode_Maybe -> Value
259+jsonEncCipher_IdentityCipher_postalCode_Maybe val = (maybeEncode (Json.Encode.string)) val
326260
327261
328262
329−type alias Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe = (Maybe String)
263+type alias Cipher_IdentityCipher_ssn_Maybe = (Maybe String)
330264
331−jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe )
332−jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe =
265+jsonDecCipher_IdentityCipher_ssn_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_ssn_Maybe )
266+jsonDecCipher_IdentityCipher_ssn_Maybe =
333267 Json.Decode.maybe (Json.Decode.string)
334268
335−jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe -> Value
336−jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe val = (maybeEncode (Json.Encode.string)) val
269+jsonEncCipher_IdentityCipher_ssn_Maybe : Cipher_IdentityCipher_ssn_Maybe -> Value
270+jsonEncCipher_IdentityCipher_ssn_Maybe val = (maybeEncode (Json.Encode.string)) val
337271
338272
339273
340−type alias Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe = (Maybe String)
274+type alias Cipher_IdentityCipher_state_Maybe = (Maybe String)
341275
342−jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe )
343−jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe =
276+jsonDecCipher_IdentityCipher_state_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_state_Maybe )
277+jsonDecCipher_IdentityCipher_state_Maybe =
344278 Json.Decode.maybe (Json.Decode.string)
345279
346−jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe -> Value
347−jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe val = (maybeEncode (Json.Encode.string)) val
280+jsonEncCipher_IdentityCipher_state_Maybe : Cipher_IdentityCipher_state_Maybe -> Value
281+jsonEncCipher_IdentityCipher_state_Maybe val = (maybeEncode (Json.Encode.string)) val
348282
349283
350284
351−type alias Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe = (Maybe String)
285+type alias Cipher_IdentityCipher_title_Maybe = (Maybe String)
352286
353−jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe )
354−jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe =
287+jsonDecCipher_IdentityCipher_title_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_title_Maybe )
288+jsonDecCipher_IdentityCipher_title_Maybe =
355289 Json.Decode.maybe (Json.Decode.string)
356290
357−jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe -> Value
358−jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe val = (maybeEncode (Json.Encode.string)) val
291+jsonEncCipher_IdentityCipher_title_Maybe : Cipher_IdentityCipher_title_Maybe -> Value
292+jsonEncCipher_IdentityCipher_title_Maybe val = (maybeEncode (Json.Encode.string)) val
359293
360294
361295
362−type alias Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe = (Maybe String)
296+type alias Cipher_IdentityCipher_username_Maybe = (Maybe String)
363297
364−jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe )
365−jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe =
298+jsonDecCipher_IdentityCipher_username_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_username_Maybe )
299+jsonDecCipher_IdentityCipher_username_Maybe =
366300 Json.Decode.maybe (Json.Decode.string)
367301
368−jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe -> Value
369−jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
370−
371−
372−
373−type alias Sub_LoadCipher_cipherType_IdentityCipher =
374− { address1: Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
375− , address2: Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
376− , address3: Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
377− , city: Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
378− , company: Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
379− , country: Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
380− , email: Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
381− , firstName: Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
382− , lastName: Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
383− , licenseNumber: Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
384− , middleName: Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
385− , passportNumber: Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
386− , phone: Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
387− , postalCode: Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
388− , ssn: Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
389− , state: Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
390− , title: Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
391− , username: Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
302+jsonEncCipher_IdentityCipher_username_Maybe : Cipher_IdentityCipher_username_Maybe -> Value
303+jsonEncCipher_IdentityCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
304+
305+
306+
307+type alias Cipher_IdentityCipher =
308+ { address1: Cipher_IdentityCipher_address1_Maybe
309+ , address2: Cipher_IdentityCipher_address2_Maybe
310+ , address3: Cipher_IdentityCipher_address3_Maybe
311+ , city: Cipher_IdentityCipher_city_Maybe
312+ , company: Cipher_IdentityCipher_company_Maybe
313+ , country: Cipher_IdentityCipher_country_Maybe
314+ , email: Cipher_IdentityCipher_email_Maybe
315+ , firstName: Cipher_IdentityCipher_firstName_Maybe
316+ , lastName: Cipher_IdentityCipher_lastName_Maybe
317+ , licenseNumber: Cipher_IdentityCipher_licenseNumber_Maybe
318+ , middleName: Cipher_IdentityCipher_middleName_Maybe
319+ , passportNumber: Cipher_IdentityCipher_passportNumber_Maybe
320+ , phone: Cipher_IdentityCipher_phone_Maybe
321+ , postalCode: Cipher_IdentityCipher_postalCode_Maybe
322+ , ssn: Cipher_IdentityCipher_ssn_Maybe
323+ , state: Cipher_IdentityCipher_state_Maybe
324+ , title: Cipher_IdentityCipher_title_Maybe
325+ , username: Cipher_IdentityCipher_username_Maybe
392326 }
393327
394−jsonDecSub_LoadCipher_cipherType_IdentityCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher )
395−jsonDecSub_LoadCipher_cipherType_IdentityCipher =
328+jsonDecCipher_IdentityCipher : Json.Decode.Decoder ( Cipher_IdentityCipher )
329+jsonDecCipher_IdentityCipher =
396330 Json.Decode.succeed (\paddress1 paddress2 paddress3 pcity pcompany pcountry pemail pfirstName plastName plicenseNumber pmiddleName ppassportNumber pphone ppostalCode pssn pstate ptitle pusername -> {address1 = paddress1, address2 = paddress2, address3 = paddress3, city = pcity, company = pcompany, country = pcountry, email = pemail, firstName = pfirstName, lastName = plastName, licenseNumber = plicenseNumber, middleName = pmiddleName, passportNumber = ppassportNumber, phone = pphone, postalCode = ppostalCode, ssn = pssn, state = pstate, title = ptitle, username = pusername})
397− |> required "address1" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe)
398− |> required "address2" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe)
399− |> required "address3" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe)
400− |> required "city" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe)
401− |> required "company" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe)
402− |> required "country" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe)
403− |> required "email" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe)
404− |> required "firstName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe)
405− |> required "lastName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe)
406− |> required "licenseNumber" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe)
407− |> required "middleName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe)
408− |> required "passportNumber" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe)
409− |> required "phone" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe)
410− |> required "postalCode" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe)
411− |> required "ssn" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe)
412− |> required "state" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe)
413− |> required "title" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe)
414− |> required "username" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe)
415−
416−jsonEncSub_LoadCipher_cipherType_IdentityCipher : Sub_LoadCipher_cipherType_IdentityCipher -> Value
417−jsonEncSub_LoadCipher_cipherType_IdentityCipher val =
331+ |> required "address1" (jsonDecCipher_IdentityCipher_address1_Maybe)
332+ |> required "address2" (jsonDecCipher_IdentityCipher_address2_Maybe)
333+ |> required "address3" (jsonDecCipher_IdentityCipher_address3_Maybe)
334+ |> required "city" (jsonDecCipher_IdentityCipher_city_Maybe)
335+ |> required "company" (jsonDecCipher_IdentityCipher_company_Maybe)
336+ |> required "country" (jsonDecCipher_IdentityCipher_country_Maybe)
337+ |> required "email" (jsonDecCipher_IdentityCipher_email_Maybe)
338+ |> required "firstName" (jsonDecCipher_IdentityCipher_firstName_Maybe)
339+ |> required "lastName" (jsonDecCipher_IdentityCipher_lastName_Maybe)
340+ |> required "licenseNumber" (jsonDecCipher_IdentityCipher_licenseNumber_Maybe)
341+ |> required "middleName" (jsonDecCipher_IdentityCipher_middleName_Maybe)
342+ |> required "passportNumber" (jsonDecCipher_IdentityCipher_passportNumber_Maybe)
343+ |> required "phone" (jsonDecCipher_IdentityCipher_phone_Maybe)
344+ |> required "postalCode" (jsonDecCipher_IdentityCipher_postalCode_Maybe)
345+ |> required "ssn" (jsonDecCipher_IdentityCipher_ssn_Maybe)
346+ |> required "state" (jsonDecCipher_IdentityCipher_state_Maybe)
347+ |> required "title" (jsonDecCipher_IdentityCipher_title_Maybe)
348+ |> required "username" (jsonDecCipher_IdentityCipher_username_Maybe)
349+
350+jsonEncCipher_IdentityCipher : Cipher_IdentityCipher -> Value
351+jsonEncCipher_IdentityCipher val =
418352 Json.Encode.object
419− [ ("address1", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe val.address1)
420− , ("address2", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe val.address2)
421− , ("address3", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe val.address3)
422− , ("city", jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe val.city)
423− , ("company", jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe val.company)
424− , ("country", jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe val.country)
425− , ("email", jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe val.email)
426− , ("firstName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe val.firstName)
427− , ("lastName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe val.lastName)
428− , ("licenseNumber", jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe val.licenseNumber)
429− , ("middleName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe val.middleName)
430− , ("passportNumber", jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe val.passportNumber)
431− , ("phone", jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe val.phone)
432− , ("postalCode", jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe val.postalCode)
433− , ("ssn", jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe val.ssn)
434− , ("state", jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe val.state)
435− , ("title", jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe val.title)
436− , ("username", jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe val.username)
353+ [ ("address1", jsonEncCipher_IdentityCipher_address1_Maybe val.address1)
354+ , ("address2", jsonEncCipher_IdentityCipher_address2_Maybe val.address2)
355+ , ("address3", jsonEncCipher_IdentityCipher_address3_Maybe val.address3)
356+ , ("city", jsonEncCipher_IdentityCipher_city_Maybe val.city)
357+ , ("company", jsonEncCipher_IdentityCipher_company_Maybe val.company)
358+ , ("country", jsonEncCipher_IdentityCipher_country_Maybe val.country)
359+ , ("email", jsonEncCipher_IdentityCipher_email_Maybe val.email)
360+ , ("firstName", jsonEncCipher_IdentityCipher_firstName_Maybe val.firstName)
361+ , ("lastName", jsonEncCipher_IdentityCipher_lastName_Maybe val.lastName)
362+ , ("licenseNumber", jsonEncCipher_IdentityCipher_licenseNumber_Maybe val.licenseNumber)
363+ , ("middleName", jsonEncCipher_IdentityCipher_middleName_Maybe val.middleName)
364+ , ("passportNumber", jsonEncCipher_IdentityCipher_passportNumber_Maybe val.passportNumber)
365+ , ("phone", jsonEncCipher_IdentityCipher_phone_Maybe val.phone)
366+ , ("postalCode", jsonEncCipher_IdentityCipher_postalCode_Maybe val.postalCode)
367+ , ("ssn", jsonEncCipher_IdentityCipher_ssn_Maybe val.ssn)
368+ , ("state", jsonEncCipher_IdentityCipher_state_Maybe val.state)
369+ , ("title", jsonEncCipher_IdentityCipher_title_Maybe val.title)
370+ , ("username", jsonEncCipher_IdentityCipher_username_Maybe val.username)
437371 ]
438372
439373
440374
441−type alias Sub_LoadCipher_cipherType_LoginCipher_password_Maybe = (Maybe String)
375+type alias Cipher_LoginCipher_password_Maybe = (Maybe String)
442376
443−jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_password_Maybe )
444−jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe =
377+jsonDecCipher_LoginCipher_password_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_password_Maybe )
378+jsonDecCipher_LoginCipher_password_Maybe =
445379 Json.Decode.maybe (Json.Decode.string)
446380
447−jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe : Sub_LoadCipher_cipherType_LoginCipher_password_Maybe -> Value
448−jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe val = (maybeEncode (Json.Encode.string)) val
381+jsonEncCipher_LoginCipher_password_Maybe : Cipher_LoginCipher_password_Maybe -> Value
382+jsonEncCipher_LoginCipher_password_Maybe val = (maybeEncode (Json.Encode.string)) val
449383
450384
451385
452−type alias Sub_LoadCipher_cipherType_LoginCipher_uris_List = (List String)
386+type alias Cipher_LoginCipher_uris_List = (List String)
453387
454−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_uris_List )
455−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List =
388+jsonDecCipher_LoginCipher_uris_List : Json.Decode.Decoder ( Cipher_LoginCipher_uris_List )
389+jsonDecCipher_LoginCipher_uris_List =
456390 Json.Decode.list (Json.Decode.string)
457391
458−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List : Sub_LoadCipher_cipherType_LoginCipher_uris_List -> Value
459−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
392+jsonEncCipher_LoginCipher_uris_List : Cipher_LoginCipher_uris_List -> Value
393+jsonEncCipher_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
460394
461395
462396
463−type alias Sub_LoadCipher_cipherType_LoginCipher_username_Maybe = (Maybe String)
397+type alias Cipher_LoginCipher_username_Maybe = (Maybe String)
464398
465−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_username_Maybe )
466−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe =
399+jsonDecCipher_LoginCipher_username_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_username_Maybe )
400+jsonDecCipher_LoginCipher_username_Maybe =
467401 Json.Decode.maybe (Json.Decode.string)
468402
469−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Sub_LoadCipher_cipherType_LoginCipher_username_Maybe -> Value
470−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
403+jsonEncCipher_LoginCipher_username_Maybe : Cipher_LoginCipher_username_Maybe -> Value
404+jsonEncCipher_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
471405
472406
473407
474−type alias Sub_LoadCipher_cipherType_LoginCipher =
475− { password: Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
476− , uris: Sub_LoadCipher_cipherType_LoginCipher_uris_List
477− , username: Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
408+type alias Cipher_LoginCipher =
409+ { password: Cipher_LoginCipher_password_Maybe
410+ , uris: Cipher_LoginCipher_uris_List
411+ , username: Cipher_LoginCipher_username_Maybe
478412 }
479413
480−jsonDecSub_LoadCipher_cipherType_LoginCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher )
481−jsonDecSub_LoadCipher_cipherType_LoginCipher =
414+jsonDecCipher_LoginCipher : Json.Decode.Decoder ( Cipher_LoginCipher )
415+jsonDecCipher_LoginCipher =
482416 Json.Decode.succeed (\ppassword puris pusername -> {password = ppassword, uris = puris, username = pusername})
483− |> required "password" (jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe)
484− |> required "uris" (jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List)
485− |> required "username" (jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe)
417+ |> required "password" (jsonDecCipher_LoginCipher_password_Maybe)
418+ |> required "uris" (jsonDecCipher_LoginCipher_uris_List)
419+ |> required "username" (jsonDecCipher_LoginCipher_username_Maybe)
486420
487−jsonEncSub_LoadCipher_cipherType_LoginCipher : Sub_LoadCipher_cipherType_LoginCipher -> Value
488−jsonEncSub_LoadCipher_cipherType_LoginCipher val =
421+jsonEncCipher_LoginCipher : Cipher_LoginCipher -> Value
422+jsonEncCipher_LoginCipher val =
489423 Json.Encode.object
490− [ ("password", jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe val.password)
491− , ("uris", jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val.uris)
492− , ("username", jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val.username)
424+ [ ("password", jsonEncCipher_LoginCipher_password_Maybe val.password)
425+ , ("uris", jsonEncCipher_LoginCipher_uris_List val.uris)
426+ , ("username", jsonEncCipher_LoginCipher_username_Maybe val.username)
493427 ]
494428
495429
496430
497−type Sub_LoadCipher_cipherType =
498− CardCipher Sub_LoadCipher_cipherType_CardCipher
499− | IdentityCipher Sub_LoadCipher_cipherType_IdentityCipher
500− | LoginCipher Sub_LoadCipher_cipherType_LoginCipher
431+type Cipher =
432+ CardCipher Cipher_CardCipher
433+ | IdentityCipher Cipher_IdentityCipher
434+ | LoginCipher Cipher_LoginCipher
501435 | NoteCipher String
502436
503−jsonDecSub_LoadCipher_cipherType : Json.Decode.Decoder ( Sub_LoadCipher_cipherType )
504−jsonDecSub_LoadCipher_cipherType =
505− let jsonDecDictSub_LoadCipher_cipherType = Dict.fromList
506− [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecSub_LoadCipher_cipherType_CardCipher)))
507− , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecSub_LoadCipher_cipherType_IdentityCipher)))
508− , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecSub_LoadCipher_cipherType_LoginCipher)))
437+jsonDecCipher : Json.Decode.Decoder ( Cipher )
438+jsonDecCipher =
439+ let jsonDecDictCipher = Dict.fromList
440+ [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecCipher_CardCipher)))
441+ , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecCipher_IdentityCipher)))
442+ , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecCipher_LoginCipher)))
509443 , ("NoteCipher", Json.Decode.lazy (\_ -> Json.Decode.map NoteCipher (Json.Decode.string)))
510444 ]
511− jsonDecObjectSetSub_LoadCipher_cipherType = Set.fromList []
512− in decodeSumTaggedObject "Sub_LoadCipher_cipherType" "tag" "contents" jsonDecDictSub_LoadCipher_cipherType jsonDecObjectSetSub_LoadCipher_cipherType
445+ jsonDecObjectSetCipher = Set.fromList []
446+ in decodeSumTaggedObject "Cipher" "tag" "contents" jsonDecDictCipher jsonDecObjectSetCipher
513447
514−jsonEncSub_LoadCipher_cipherType : Sub_LoadCipher_cipherType -> Value
515−jsonEncSub_LoadCipher_cipherType val =
448+jsonEncCipher : Cipher -> Value
449+jsonEncCipher val =
516450 let keyval v = case v of
517− CardCipher v1 -> ("CardCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_CardCipher v1))
518− IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_IdentityCipher v1))
519− LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_LoginCipher v1))
451+ CardCipher v1 -> ("CardCipher", encodeValue (jsonEncCipher_CardCipher v1))
452+ IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncCipher_IdentityCipher v1))
453+ LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncCipher_LoginCipher v1))
520454 NoteCipher v1 -> ("NoteCipher", encodeValue (Json.Encode.string v1))
521455 in encodeSumTaggedObject "tag" "contents" keyval val
522456
523457
524458
459+type CipherType =
460+ CardType
461+ | IdentityType
462+ | LoginType
463+ | NoteType
464+
465+jsonDecCipherType : Json.Decode.Decoder ( CipherType )
466+jsonDecCipherType =
467+ let jsonDecDictCipherType = Dict.fromList [("CardType", CardType), ("IdentityType", IdentityType), ("LoginType", LoginType), ("NoteType", NoteType)]
468+ in decodeSumUnaries "CipherType" jsonDecDictCipherType
469+
470+jsonEncCipherType : CipherType -> Value
471+jsonEncCipherType val =
472+ case val of
473+ CardType -> Json.Encode.string "CardType"
474+ IdentityType -> Json.Encode.string "IdentityType"
475+ LoginType -> Json.Encode.string "LoginType"
476+ NoteType -> Json.Encode.string "NoteType"
477+
478+
479+
480+type alias Cmd_Login =
481+ { email: String
482+ , password: String
483+ , server: String
484+ }
485+
486+jsonDecCmd_Login : Json.Decode.Decoder ( Cmd_Login )
487+jsonDecCmd_Login =
488+ Json.Decode.succeed (\pemail ppassword pserver -> {email = pemail, password = ppassword, server = pserver})
489+ |> required "email" (Json.Decode.string)
490+ |> required "password" (Json.Decode.string)
491+ |> required "server" (Json.Decode.string)
492+
493+jsonEncCmd_Login : Cmd_Login -> Value
494+jsonEncCmd_Login val =
495+ Json.Encode.object
496+ [ ("email", Json.Encode.string val.email)
497+ , ("password", Json.Encode.string val.password)
498+ , ("server", Json.Encode.string val.server)
499+ ]
500+
501+
502+
503+type Cmd =
504+ Copy String
505+ | Init
506+ | Login Cmd_Login
507+ | NeedCiphersList
508+ | NeedEmail
509+ | NeedsReset
510+ | Open String
511+ | RequestCipher String
512+ | SendMasterPassword String
513+
514+jsonDecCmd : Json.Decode.Decoder ( Cmd )
515+jsonDecCmd =
516+ let jsonDecDictCmd = Dict.fromList
517+ [ ("Copy", Json.Decode.lazy (\_ -> Json.Decode.map Copy (Json.Decode.string)))
518+ , ("Init", Json.Decode.lazy (\_ -> Json.Decode.succeed Init))
519+ , ("Login", Json.Decode.lazy (\_ -> Json.Decode.map Login (jsonDecCmd_Login)))
520+ , ("NeedCiphersList", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedCiphersList))
521+ , ("NeedEmail", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedEmail))
522+ , ("NeedsReset", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedsReset))
523+ , ("Open", Json.Decode.lazy (\_ -> Json.Decode.map Open (Json.Decode.string)))
524+ , ("RequestCipher", Json.Decode.lazy (\_ -> Json.Decode.map RequestCipher (Json.Decode.string)))
525+ , ("SendMasterPassword", Json.Decode.lazy (\_ -> Json.Decode.map SendMasterPassword (Json.Decode.string)))
526+ ]
527+ jsonDecObjectSetCmd = Set.fromList []
528+ in decodeSumTaggedObject "Cmd" "tag" "contents" jsonDecDictCmd jsonDecObjectSetCmd
529+
530+jsonEncCmd : Cmd -> Value
531+jsonEncCmd val =
532+ let keyval v = case v of
533+ Copy v1 -> ("Copy", encodeValue (Json.Encode.string v1))
534+ Init -> ("Init", encodeValue (Json.Encode.list identity []))
535+ Login v1 -> ("Login", encodeValue (jsonEncCmd_Login v1))
536+ NeedCiphersList -> ("NeedCiphersList", encodeValue (Json.Encode.list identity []))
537+ NeedEmail -> ("NeedEmail", encodeValue (Json.Encode.list identity []))
538+ NeedsReset -> ("NeedsReset", encodeValue (Json.Encode.list identity []))
539+ Open v1 -> ("Open", encodeValue (Json.Encode.string v1))
540+ RequestCipher v1 -> ("RequestCipher", encodeValue (Json.Encode.string v1))
541+ SendMasterPassword v1 -> ("SendMasterPassword", encodeValue (Json.Encode.string v1))
542+ in encodeSumTaggedObject "tag" "contents" keyval val
543+
544+
545+
525546type alias Sub_LoadCipher =
526− { cipherType: Sub_LoadCipher_cipherType
547+ { cipherType: Cipher
527548 , id: String
528549 , name: String
529550 }
@@ -531,43 +552,22 @@ type alias Sub_LoadCipher =
531552jsonDecSub_LoadCipher : Json.Decode.Decoder ( Sub_LoadCipher )
532553jsonDecSub_LoadCipher =
533554 Json.Decode.succeed (\pcipherType pid pname -> {cipherType = pcipherType, id = pid, name = pname})
534− |> required "cipherType" (jsonDecSub_LoadCipher_cipherType)
555+ |> required "cipherType" (jsonDecCipher)
535556 |> required "id" (Json.Decode.string)
536557 |> required "name" (Json.Decode.string)
537558
538559jsonEncSub_LoadCipher : Sub_LoadCipher -> Value
539560jsonEncSub_LoadCipher val =
540561 Json.Encode.object
541− [ ("cipherType", jsonEncSub_LoadCipher_cipherType val.cipherType)
562+ [ ("cipherType", jsonEncCipher val.cipherType)
542563 , ("id", Json.Encode.string val.id)
543564 , ("name", Json.Encode.string val.name)
544565 ]
545566
546567
547568
548−type Sub_LoadCiphers_cipherType =
549− CardType
550− | IdentityType
551− | LoginType
552− | NoteType
553−
554−jsonDecSub_LoadCiphers_cipherType : Json.Decode.Decoder ( Sub_LoadCiphers_cipherType )
555−jsonDecSub_LoadCiphers_cipherType =
556− let jsonDecDictSub_LoadCiphers_cipherType = Dict.fromList [("CardType", CardType), ("IdentityType", IdentityType), ("LoginType", LoginType), ("NoteType", NoteType)]
557− in decodeSumUnaries "Sub_LoadCiphers_cipherType" jsonDecDictSub_LoadCiphers_cipherType
558−
559−jsonEncSub_LoadCiphers_cipherType : Sub_LoadCiphers_cipherType -> Value
560−jsonEncSub_LoadCiphers_cipherType val =
561− case val of
562− CardType -> Json.Encode.string "CardType"
563− IdentityType -> Json.Encode.string "IdentityType"
564− LoginType -> Json.Encode.string "LoginType"
565− NoteType -> Json.Encode.string "NoteType"
566−
567−
568−
569569type alias Sub_LoadCiphers =
570− { cipherType: Sub_LoadCiphers_cipherType
570+ { cipherType: CipherType
571571 , date: String
572572 , id: String
573573 , name: String
@@ -576,7 +576,7 @@ type alias Sub_LoadCiphers =
576576jsonDecSub_LoadCiphers : Json.Decode.Decoder ( Sub_LoadCiphers )
577577jsonDecSub_LoadCiphers =
578578 Json.Decode.succeed (\pcipherType pdate pid pname -> {cipherType = pcipherType, date = pdate, id = pid, name = pname})
579− |> required "cipherType" (jsonDecSub_LoadCiphers_cipherType)
579+ |> required "cipherType" (jsonDecCipherType)
580580 |> required "date" (Json.Decode.string)
581581 |> required "id" (Json.Decode.string)
582582 |> required "name" (Json.Decode.string)
@@ -584,7 +584,7 @@ jsonDecSub_LoadCiphers =
584584jsonEncSub_LoadCiphers : Sub_LoadCiphers -> Value
585585jsonEncSub_LoadCiphers val =
586586 Json.Encode.object
587− [ ("cipherType", jsonEncSub_LoadCiphers_cipherType val.cipherType)
587+ [ ("cipherType", jsonEncCipherType val.cipherType)
588588 , ("date", Json.Encode.string val.date)
589589 , ("id", Json.Encode.string val.id)
590590 , ("name", Json.Encode.string val.name)
frontend/Pages/Ciphers.elm+1−1
@@ -25,7 +25,7 @@ type alias Model =
2525
2626type CiphersFilter
2727 = AllCiphers
28− | SpecificCiphers Bridge.Sub_LoadCiphers_cipherType
28+ | SpecificCiphers Bridge.CipherType
2929
3030
3131applyCipherFilter : CiphersFilter -> Bridge.Sub_LoadCiphers_List -> Bridge.Sub_LoadCiphers_List