git.iko.soy/warden
on master help sign in
Custom Bridge Types
060890diko
backend/Bridge.purs+322−322
compare with master
unifiedsplit
@@ -12,448 +12,462 @@ import Data.Newtype (class Newtype)
12
12
13import Prelude
13import Prelude
14
14
15−newtype Cmd_Login =
15+newtype Cipher_CardCipher_brand_Maybe =
16− Cmd_Login {
16+ Cipher_CardCipher_brand_Maybe (Maybe String)
17− email :: String
18− , password :: String
19− , server :: String
20− }
21
17
22−derive instance newtypeCmd_Login :: Newtype Cmd_Login _
18+derive instance newtypeCipher_CardCipher_brand_Maybe :: Newtype Cipher_CardCipher_brand_Maybe _
23−instance encodeJsonCmd_Login :: EncodeJson Cmd_Login where
19+instance encodeJsonCipher_CardCipher_brand_Maybe :: EncodeJson Cipher_CardCipher_brand_Maybe where
24 encodeJson = genericEncodeAeson Argonaut.defaultOptions
20 encodeJson = genericEncodeAeson Argonaut.defaultOptions
25−instance decodeJsonCmd_Login :: DecodeJson Cmd_Login where
21+instance decodeJsonCipher_CardCipher_brand_Maybe :: DecodeJson Cipher_CardCipher_brand_Maybe where
26 decodeJson = genericDecodeAeson Argonaut.defaultOptions
22 decodeJson = genericDecodeAeson Argonaut.defaultOptions
27−derive instance genericCmd_Login :: Generic Cmd_Login _
23+derive instance genericCipher_CardCipher_brand_Maybe :: Generic Cipher_CardCipher_brand_Maybe _
28−derive instance eqCmd_Login :: Eq Cmd_Login
24+derive instance eqCipher_CardCipher_brand_Maybe :: Eq Cipher_CardCipher_brand_Maybe
29−derive instance ordCmd_Login :: Ord Cmd_Login
25+derive instance ordCipher_CardCipher_brand_Maybe :: Ord Cipher_CardCipher_brand_Maybe
30
26
31−data Cmd =
27+newtype Cipher_CardCipher_cardholderName_Maybe =
32− Copy String
28+ Cipher_CardCipher_cardholderName_Maybe (Maybe String)
33− | Init
34− | Login Cmd_Login
35− | NeedCiphersList
36− | NeedEmail
37− | NeedsReset
38− | Open String
39− | RequestCipher String
40− | SendMasterPassword String
41
29
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
43 encodeJson = genericEncodeAeson Argonaut.defaultOptions
32 encodeJson = genericEncodeAeson Argonaut.defaultOptions
44−instance decodeJsonCmd :: DecodeJson Cmd where
33+instance decodeJsonCipher_CardCipher_cardholderName_Maybe :: DecodeJson Cipher_CardCipher_cardholderName_Maybe where
45 decodeJson = genericDecodeAeson Argonaut.defaultOptions
34 decodeJson = genericDecodeAeson Argonaut.defaultOptions
46−derive instance genericCmd :: Generic Cmd _
35+derive instance genericCipher_CardCipher_cardholderName_Maybe :: Generic Cipher_CardCipher_cardholderName_Maybe _
47−derive instance eqCmd :: Eq Cmd
36+derive instance eqCipher_CardCipher_cardholderName_Maybe :: Eq Cipher_CardCipher_cardholderName_Maybe
48−derive instance ordCmd :: Ord Cmd
37+derive instance ordCipher_CardCipher_cardholderName_Maybe :: Ord Cipher_CardCipher_cardholderName_Maybe
49
38
50−newtype Sub_LoadCipher_cipherType_CardCipher_brand_Maybe =
39+newtype Cipher_CardCipher_code_Maybe =
51− Sub_LoadCipher_cipherType_CardCipher_brand_Maybe (Maybe String)
40+ Cipher_CardCipher_code_Maybe (Maybe String)
52
41
53−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_brand_Maybe _
42+derive instance newtypeCipher_CardCipher_code_Maybe :: Newtype Cipher_CardCipher_code_Maybe _
54−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_brand_Maybe where
43+instance encodeJsonCipher_CardCipher_code_Maybe :: EncodeJson Cipher_CardCipher_code_Maybe where
55 encodeJson = genericEncodeAeson Argonaut.defaultOptions
44 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
57 decodeJson = genericDecodeAeson Argonaut.defaultOptions
46 decodeJson = genericDecodeAeson Argonaut.defaultOptions
58−derive instance genericSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_brand_Maybe _
47+derive instance genericCipher_CardCipher_code_Maybe :: Generic Cipher_CardCipher_code_Maybe _
59−derive instance eqSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
48+derive instance eqCipher_CardCipher_code_Maybe :: Eq Cipher_CardCipher_code_Maybe
60−derive instance ordSub_LoadCipher_cipherType_CardCipher_brand_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
49+derive instance ordCipher_CardCipher_code_Maybe :: Ord Cipher_CardCipher_code_Maybe
61
50
62−newtype Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe =
51+newtype Cipher_CardCipher_expMonth_Maybe =
63− Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe (Maybe String)
52+ Cipher_CardCipher_expMonth_Maybe (Maybe String)
64
53
65−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe _
54+derive instance newtypeCipher_CardCipher_expMonth_Maybe :: Newtype Cipher_CardCipher_expMonth_Maybe _
66−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe where
55+instance encodeJsonCipher_CardCipher_expMonth_Maybe :: EncodeJson Cipher_CardCipher_expMonth_Maybe where
67 encodeJson = genericEncodeAeson Argonaut.defaultOptions
56 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
69 decodeJson = genericDecodeAeson Argonaut.defaultOptions
58 decodeJson = genericDecodeAeson Argonaut.defaultOptions
70−derive instance genericSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe _
59+derive instance genericCipher_CardCipher_expMonth_Maybe :: Generic Cipher_CardCipher_expMonth_Maybe _
71−derive instance eqSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
60+derive instance eqCipher_CardCipher_expMonth_Maybe :: Eq Cipher_CardCipher_expMonth_Maybe
72−derive instance ordSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
61+derive instance ordCipher_CardCipher_expMonth_Maybe :: Ord Cipher_CardCipher_expMonth_Maybe
73
62
74−newtype Sub_LoadCipher_cipherType_CardCipher_code_Maybe =
63+newtype Cipher_CardCipher_expYear_Maybe =
75− Sub_LoadCipher_cipherType_CardCipher_code_Maybe (Maybe String)
64+ Cipher_CardCipher_expYear_Maybe (Maybe String)
76
65
77−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_code_Maybe _
66+derive instance newtypeCipher_CardCipher_expYear_Maybe :: Newtype Cipher_CardCipher_expYear_Maybe _
78−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_code_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_code_Maybe where
67+instance encodeJsonCipher_CardCipher_expYear_Maybe :: EncodeJson Cipher_CardCipher_expYear_Maybe where
79 encodeJson = genericEncodeAeson Argonaut.defaultOptions
68 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
81 decodeJson = genericDecodeAeson Argonaut.defaultOptions
70 decodeJson = genericDecodeAeson Argonaut.defaultOptions
82−derive instance genericSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_code_Maybe _
71+derive instance genericCipher_CardCipher_expYear_Maybe :: Generic Cipher_CardCipher_expYear_Maybe _
83−derive instance eqSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_code_Maybe
72+derive instance eqCipher_CardCipher_expYear_Maybe :: Eq Cipher_CardCipher_expYear_Maybe
84−derive instance ordSub_LoadCipher_cipherType_CardCipher_code_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_code_Maybe
73+derive instance ordCipher_CardCipher_expYear_Maybe :: Ord Cipher_CardCipher_expYear_Maybe
85
74
86−newtype Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe =
75+newtype Cipher_CardCipher_number_Maybe =
87− Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe (Maybe String)
76+ Cipher_CardCipher_number_Maybe (Maybe String)
88
77
89−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe _
78+derive instance newtypeCipher_CardCipher_number_Maybe :: Newtype Cipher_CardCipher_number_Maybe _
90−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe where
79+instance encodeJsonCipher_CardCipher_number_Maybe :: EncodeJson Cipher_CardCipher_number_Maybe where
91 encodeJson = genericEncodeAeson Argonaut.defaultOptions
80 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
93 decodeJson = genericDecodeAeson Argonaut.defaultOptions
82 decodeJson = genericDecodeAeson Argonaut.defaultOptions
94−derive instance genericSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe _
83+derive instance genericCipher_CardCipher_number_Maybe :: Generic Cipher_CardCipher_number_Maybe _
95−derive instance eqSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
84+derive instance eqCipher_CardCipher_number_Maybe :: Eq Cipher_CardCipher_number_Maybe
96−derive instance ordSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
85+derive instance ordCipher_CardCipher_number_Maybe :: Ord Cipher_CardCipher_number_Maybe
97
86
98−newtype Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe =
87+newtype Cipher_CardCipher =
99− Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe (Maybe String)
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+ }
100
96
101−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe _
97+derive instance newtypeCipher_CardCipher :: Newtype Cipher_CardCipher _
102−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe where
98+instance encodeJsonCipher_CardCipher :: EncodeJson Cipher_CardCipher where
103 encodeJson = genericEncodeAeson Argonaut.defaultOptions
99 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
105 decodeJson = genericDecodeAeson Argonaut.defaultOptions
101 decodeJson = genericDecodeAeson Argonaut.defaultOptions
106−derive instance genericSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe _
102+derive instance genericCipher_CardCipher :: Generic Cipher_CardCipher _
107−derive instance eqSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
103+derive instance eqCipher_CardCipher :: Eq Cipher_CardCipher
108−derive instance ordSub_LoadCipher_cipherType_CardCipher_expYear_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
104+derive instance ordCipher_CardCipher :: Ord Cipher_CardCipher
109
105
110−newtype Sub_LoadCipher_cipherType_CardCipher_number_Maybe =
106+newtype Cipher_IdentityCipher_address1_Maybe =
111− Sub_LoadCipher_cipherType_CardCipher_number_Maybe (Maybe String)
107+ Cipher_IdentityCipher_address1_Maybe (Maybe String)
112
108
113−derive instance newtypeSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Newtype Sub_LoadCipher_cipherType_CardCipher_number_Maybe _
109+derive instance newtypeCipher_IdentityCipher_address1_Maybe :: Newtype Cipher_IdentityCipher_address1_Maybe _
114−instance encodeJsonSub_LoadCipher_cipherType_CardCipher_number_Maybe :: EncodeJson Sub_LoadCipher_cipherType_CardCipher_number_Maybe where
110+instance encodeJsonCipher_IdentityCipher_address1_Maybe :: EncodeJson Cipher_IdentityCipher_address1_Maybe where
115 encodeJson = genericEncodeAeson Argonaut.defaultOptions
111 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
117 decodeJson = genericDecodeAeson Argonaut.defaultOptions
113 decodeJson = genericDecodeAeson Argonaut.defaultOptions
118−derive instance genericSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Generic Sub_LoadCipher_cipherType_CardCipher_number_Maybe _
114+derive instance genericCipher_IdentityCipher_address1_Maybe :: Generic Cipher_IdentityCipher_address1_Maybe _
119−derive instance eqSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Eq Sub_LoadCipher_cipherType_CardCipher_number_Maybe
115+derive instance eqCipher_IdentityCipher_address1_Maybe :: Eq Cipher_IdentityCipher_address1_Maybe
120−derive instance ordSub_LoadCipher_cipherType_CardCipher_number_Maybe :: Ord Sub_LoadCipher_cipherType_CardCipher_number_Maybe
116+derive instance ordCipher_IdentityCipher_address1_Maybe :: Ord Cipher_IdentityCipher_address1_Maybe
121
117
122−newtype Sub_LoadCipher_cipherType_CardCipher =
118+newtype Cipher_IdentityCipher_address2_Maybe =
123− Sub_LoadCipher_cipherType_CardCipher {
119+ Cipher_IdentityCipher_address2_Maybe (Maybe String)
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− }
131
120
132−derive instance newtypeSub_LoadCipher_cipherType_CardCipher :: Newtype Sub_LoadCipher_cipherType_CardCipher _
121+derive instance newtypeCipher_IdentityCipher_address2_Maybe :: Newtype Cipher_IdentityCipher_address2_Maybe _
133−instance encodeJsonSub_LoadCipher_cipherType_CardCipher :: EncodeJson Sub_LoadCipher_cipherType_CardCipher where
122+instance encodeJsonCipher_IdentityCipher_address2_Maybe :: EncodeJson Cipher_IdentityCipher_address2_Maybe where
134 encodeJson = genericEncodeAeson Argonaut.defaultOptions
123 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
136 decodeJson = genericDecodeAeson Argonaut.defaultOptions
125 decodeJson = genericDecodeAeson Argonaut.defaultOptions
137−derive instance genericSub_LoadCipher_cipherType_CardCipher :: Generic Sub_LoadCipher_cipherType_CardCipher _
126+derive instance genericCipher_IdentityCipher_address2_Maybe :: Generic Cipher_IdentityCipher_address2_Maybe _
138−derive instance eqSub_LoadCipher_cipherType_CardCipher :: Eq Sub_LoadCipher_cipherType_CardCipher
127+derive instance eqCipher_IdentityCipher_address2_Maybe :: Eq Cipher_IdentityCipher_address2_Maybe
139−derive instance ordSub_LoadCipher_cipherType_CardCipher :: Ord Sub_LoadCipher_cipherType_CardCipher
128+derive instance ordCipher_IdentityCipher_address2_Maybe :: Ord Cipher_IdentityCipher_address2_Maybe
140
129
141−newtype Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe =
130+newtype Cipher_IdentityCipher_address3_Maybe =
142− Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe (Maybe String)
131+ Cipher_IdentityCipher_address3_Maybe (Maybe String)
143
132
144−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe _
133+derive instance newtypeCipher_IdentityCipher_address3_Maybe :: Newtype Cipher_IdentityCipher_address3_Maybe _
145−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe where
134+instance encodeJsonCipher_IdentityCipher_address3_Maybe :: EncodeJson Cipher_IdentityCipher_address3_Maybe where
146 encodeJson = genericEncodeAeson Argonaut.defaultOptions
135 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
148 decodeJson = genericDecodeAeson Argonaut.defaultOptions
137 decodeJson = genericDecodeAeson Argonaut.defaultOptions
149−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe _
138+derive instance genericCipher_IdentityCipher_address3_Maybe :: Generic Cipher_IdentityCipher_address3_Maybe _
150−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
139+derive instance eqCipher_IdentityCipher_address3_Maybe :: Eq Cipher_IdentityCipher_address3_Maybe
151−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
140+derive instance ordCipher_IdentityCipher_address3_Maybe :: Ord Cipher_IdentityCipher_address3_Maybe
152
141
153−newtype Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe =
142+newtype Cipher_IdentityCipher_city_Maybe =
154− Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe (Maybe String)
143+ Cipher_IdentityCipher_city_Maybe (Maybe String)
155
144
156−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe _
145+derive instance newtypeCipher_IdentityCipher_city_Maybe :: Newtype Cipher_IdentityCipher_city_Maybe _
157−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe where
146+instance encodeJsonCipher_IdentityCipher_city_Maybe :: EncodeJson Cipher_IdentityCipher_city_Maybe where
158 encodeJson = genericEncodeAeson Argonaut.defaultOptions
147 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
160 decodeJson = genericDecodeAeson Argonaut.defaultOptions
149 decodeJson = genericDecodeAeson Argonaut.defaultOptions
161−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe _
150+derive instance genericCipher_IdentityCipher_city_Maybe :: Generic Cipher_IdentityCipher_city_Maybe _
162−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
151+derive instance eqCipher_IdentityCipher_city_Maybe :: Eq Cipher_IdentityCipher_city_Maybe
163−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
152+derive instance ordCipher_IdentityCipher_city_Maybe :: Ord Cipher_IdentityCipher_city_Maybe
164
153
165−newtype Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe =
154+newtype Cipher_IdentityCipher_company_Maybe =
166− Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe (Maybe String)
155+ Cipher_IdentityCipher_company_Maybe (Maybe String)
167
156
168−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe _
157+derive instance newtypeCipher_IdentityCipher_company_Maybe :: Newtype Cipher_IdentityCipher_company_Maybe _
169−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe where
158+instance encodeJsonCipher_IdentityCipher_company_Maybe :: EncodeJson Cipher_IdentityCipher_company_Maybe where
170 encodeJson = genericEncodeAeson Argonaut.defaultOptions
159 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
172 decodeJson = genericDecodeAeson Argonaut.defaultOptions
161 decodeJson = genericDecodeAeson Argonaut.defaultOptions
173−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe _
162+derive instance genericCipher_IdentityCipher_company_Maybe :: Generic Cipher_IdentityCipher_company_Maybe _
174−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
163+derive instance eqCipher_IdentityCipher_company_Maybe :: Eq Cipher_IdentityCipher_company_Maybe
175−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
164+derive instance ordCipher_IdentityCipher_company_Maybe :: Ord Cipher_IdentityCipher_company_Maybe
176
165
177−newtype Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe =
166+newtype Cipher_IdentityCipher_country_Maybe =
178− Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe (Maybe String)
167+ Cipher_IdentityCipher_country_Maybe (Maybe String)
179
168
180−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe _
169+derive instance newtypeCipher_IdentityCipher_country_Maybe :: Newtype Cipher_IdentityCipher_country_Maybe _
181−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe where
170+instance encodeJsonCipher_IdentityCipher_country_Maybe :: EncodeJson Cipher_IdentityCipher_country_Maybe where
182 encodeJson = genericEncodeAeson Argonaut.defaultOptions
171 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
184 decodeJson = genericDecodeAeson Argonaut.defaultOptions
173 decodeJson = genericDecodeAeson Argonaut.defaultOptions
185−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe _
174+derive instance genericCipher_IdentityCipher_country_Maybe :: Generic Cipher_IdentityCipher_country_Maybe _
186−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
175+derive instance eqCipher_IdentityCipher_country_Maybe :: Eq Cipher_IdentityCipher_country_Maybe
187−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_city_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
176+derive instance ordCipher_IdentityCipher_country_Maybe :: Ord Cipher_IdentityCipher_country_Maybe
188
177
189−newtype Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe =
178+newtype Cipher_IdentityCipher_email_Maybe =
190− Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe (Maybe String)
179+ Cipher_IdentityCipher_email_Maybe (Maybe String)
191
180
192−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe _
181+derive instance newtypeCipher_IdentityCipher_email_Maybe :: Newtype Cipher_IdentityCipher_email_Maybe _
193−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe where
182+instance encodeJsonCipher_IdentityCipher_email_Maybe :: EncodeJson Cipher_IdentityCipher_email_Maybe where
194 encodeJson = genericEncodeAeson Argonaut.defaultOptions
183 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
196 decodeJson = genericDecodeAeson Argonaut.defaultOptions
185 decodeJson = genericDecodeAeson Argonaut.defaultOptions
197−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe _
186+derive instance genericCipher_IdentityCipher_email_Maybe :: Generic Cipher_IdentityCipher_email_Maybe _
198−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
187+derive instance eqCipher_IdentityCipher_email_Maybe :: Eq Cipher_IdentityCipher_email_Maybe
199−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_company_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
188+derive instance ordCipher_IdentityCipher_email_Maybe :: Ord Cipher_IdentityCipher_email_Maybe
200
189
201−newtype Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe =
190+newtype Cipher_IdentityCipher_firstName_Maybe =
202− Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe (Maybe String)
191+ Cipher_IdentityCipher_firstName_Maybe (Maybe String)
203
192
204−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe _
193+derive instance newtypeCipher_IdentityCipher_firstName_Maybe :: Newtype Cipher_IdentityCipher_firstName_Maybe _
205−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe where
194+instance encodeJsonCipher_IdentityCipher_firstName_Maybe :: EncodeJson Cipher_IdentityCipher_firstName_Maybe where
206 encodeJson = genericEncodeAeson Argonaut.defaultOptions
195 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
208 decodeJson = genericDecodeAeson Argonaut.defaultOptions
197 decodeJson = genericDecodeAeson Argonaut.defaultOptions
209−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe _
198+derive instance genericCipher_IdentityCipher_firstName_Maybe :: Generic Cipher_IdentityCipher_firstName_Maybe _
210−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
199+derive instance eqCipher_IdentityCipher_firstName_Maybe :: Eq Cipher_IdentityCipher_firstName_Maybe
211−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_country_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
200+derive instance ordCipher_IdentityCipher_firstName_Maybe :: Ord Cipher_IdentityCipher_firstName_Maybe
212
201
213−newtype Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe =
202+newtype Cipher_IdentityCipher_lastName_Maybe =
214− Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe (Maybe String)
203+ Cipher_IdentityCipher_lastName_Maybe (Maybe String)
215
204
216−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe _
205+derive instance newtypeCipher_IdentityCipher_lastName_Maybe :: Newtype Cipher_IdentityCipher_lastName_Maybe _
217−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe where
206+instance encodeJsonCipher_IdentityCipher_lastName_Maybe :: EncodeJson Cipher_IdentityCipher_lastName_Maybe where
218 encodeJson = genericEncodeAeson Argonaut.defaultOptions
207 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
220 decodeJson = genericDecodeAeson Argonaut.defaultOptions
209 decodeJson = genericDecodeAeson Argonaut.defaultOptions
221−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe _
210+derive instance genericCipher_IdentityCipher_lastName_Maybe :: Generic Cipher_IdentityCipher_lastName_Maybe _
222−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
211+derive instance eqCipher_IdentityCipher_lastName_Maybe :: Eq Cipher_IdentityCipher_lastName_Maybe
223−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_email_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
212+derive instance ordCipher_IdentityCipher_lastName_Maybe :: Ord Cipher_IdentityCipher_lastName_Maybe
224
213
225−newtype Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe =
214+newtype Cipher_IdentityCipher_licenseNumber_Maybe =
226− Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe (Maybe String)
215+ Cipher_IdentityCipher_licenseNumber_Maybe (Maybe String)
227
216
228−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe _
217+derive instance newtypeCipher_IdentityCipher_licenseNumber_Maybe :: Newtype Cipher_IdentityCipher_licenseNumber_Maybe _
229−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe where
218+instance encodeJsonCipher_IdentityCipher_licenseNumber_Maybe :: EncodeJson Cipher_IdentityCipher_licenseNumber_Maybe where
230 encodeJson = genericEncodeAeson Argonaut.defaultOptions
219 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
232 decodeJson = genericDecodeAeson Argonaut.defaultOptions
221 decodeJson = genericDecodeAeson Argonaut.defaultOptions
233−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe _
222+derive instance genericCipher_IdentityCipher_licenseNumber_Maybe :: Generic Cipher_IdentityCipher_licenseNumber_Maybe _
234−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
223+derive instance eqCipher_IdentityCipher_licenseNumber_Maybe :: Eq Cipher_IdentityCipher_licenseNumber_Maybe
235−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
224+derive instance ordCipher_IdentityCipher_licenseNumber_Maybe :: Ord Cipher_IdentityCipher_licenseNumber_Maybe
236
225
237−newtype Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe =
226+newtype Cipher_IdentityCipher_middleName_Maybe =
238− Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe (Maybe String)
227+ Cipher_IdentityCipher_middleName_Maybe (Maybe String)
239
228
240−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe _
229+derive instance newtypeCipher_IdentityCipher_middleName_Maybe :: Newtype Cipher_IdentityCipher_middleName_Maybe _
241−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe where
230+instance encodeJsonCipher_IdentityCipher_middleName_Maybe :: EncodeJson Cipher_IdentityCipher_middleName_Maybe where
242 encodeJson = genericEncodeAeson Argonaut.defaultOptions
231 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
244 decodeJson = genericDecodeAeson Argonaut.defaultOptions
233 decodeJson = genericDecodeAeson Argonaut.defaultOptions
245−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe _
234+derive instance genericCipher_IdentityCipher_middleName_Maybe :: Generic Cipher_IdentityCipher_middleName_Maybe _
246−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
235+derive instance eqCipher_IdentityCipher_middleName_Maybe :: Eq Cipher_IdentityCipher_middleName_Maybe
247−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
236+derive instance ordCipher_IdentityCipher_middleName_Maybe :: Ord Cipher_IdentityCipher_middleName_Maybe
248
237
249−newtype Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe =
238+newtype Cipher_IdentityCipher_passportNumber_Maybe =
250− Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe (Maybe String)
239+ Cipher_IdentityCipher_passportNumber_Maybe (Maybe String)
251
240
252−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe _
241+derive instance newtypeCipher_IdentityCipher_passportNumber_Maybe :: Newtype Cipher_IdentityCipher_passportNumber_Maybe _
253−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe where
242+instance encodeJsonCipher_IdentityCipher_passportNumber_Maybe :: EncodeJson Cipher_IdentityCipher_passportNumber_Maybe where
254 encodeJson = genericEncodeAeson Argonaut.defaultOptions
243 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
256 decodeJson = genericDecodeAeson Argonaut.defaultOptions
245 decodeJson = genericDecodeAeson Argonaut.defaultOptions
257−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe _
246+derive instance genericCipher_IdentityCipher_passportNumber_Maybe :: Generic Cipher_IdentityCipher_passportNumber_Maybe _
258−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
247+derive instance eqCipher_IdentityCipher_passportNumber_Maybe :: Eq Cipher_IdentityCipher_passportNumber_Maybe
259−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
248+derive instance ordCipher_IdentityCipher_passportNumber_Maybe :: Ord Cipher_IdentityCipher_passportNumber_Maybe
260
249
261−newtype Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe =
250+newtype Cipher_IdentityCipher_phone_Maybe =
262− Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe (Maybe String)
251+ Cipher_IdentityCipher_phone_Maybe (Maybe String)
263
252
264−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe _
253+derive instance newtypeCipher_IdentityCipher_phone_Maybe :: Newtype Cipher_IdentityCipher_phone_Maybe _
265−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe where
254+instance encodeJsonCipher_IdentityCipher_phone_Maybe :: EncodeJson Cipher_IdentityCipher_phone_Maybe where
266 encodeJson = genericEncodeAeson Argonaut.defaultOptions
255 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
268 decodeJson = genericDecodeAeson Argonaut.defaultOptions
257 decodeJson = genericDecodeAeson Argonaut.defaultOptions
269−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe _
258+derive instance genericCipher_IdentityCipher_phone_Maybe :: Generic Cipher_IdentityCipher_phone_Maybe _
270−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
259+derive instance eqCipher_IdentityCipher_phone_Maybe :: Eq Cipher_IdentityCipher_phone_Maybe
271−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
260+derive instance ordCipher_IdentityCipher_phone_Maybe :: Ord Cipher_IdentityCipher_phone_Maybe
272
261
273−newtype Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe =
262+newtype Cipher_IdentityCipher_postalCode_Maybe =
274− Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe (Maybe String)
263+ Cipher_IdentityCipher_postalCode_Maybe (Maybe String)
275
264
276−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe _
265+derive instance newtypeCipher_IdentityCipher_postalCode_Maybe :: Newtype Cipher_IdentityCipher_postalCode_Maybe _
277−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe where
266+instance encodeJsonCipher_IdentityCipher_postalCode_Maybe :: EncodeJson Cipher_IdentityCipher_postalCode_Maybe where
278 encodeJson = genericEncodeAeson Argonaut.defaultOptions
267 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
280 decodeJson = genericDecodeAeson Argonaut.defaultOptions
269 decodeJson = genericDecodeAeson Argonaut.defaultOptions
281−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe _
270+derive instance genericCipher_IdentityCipher_postalCode_Maybe :: Generic Cipher_IdentityCipher_postalCode_Maybe _
282−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
271+derive instance eqCipher_IdentityCipher_postalCode_Maybe :: Eq Cipher_IdentityCipher_postalCode_Maybe
283−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
272+derive instance ordCipher_IdentityCipher_postalCode_Maybe :: Ord Cipher_IdentityCipher_postalCode_Maybe
284
273
285−newtype Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe =
274+newtype Cipher_IdentityCipher_ssn_Maybe =
286− Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe (Maybe String)
275+ Cipher_IdentityCipher_ssn_Maybe (Maybe String)
287
276
288−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe _
277+derive instance newtypeCipher_IdentityCipher_ssn_Maybe :: Newtype Cipher_IdentityCipher_ssn_Maybe _
289−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe where
278+instance encodeJsonCipher_IdentityCipher_ssn_Maybe :: EncodeJson Cipher_IdentityCipher_ssn_Maybe where
290 encodeJson = genericEncodeAeson Argonaut.defaultOptions
279 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
292 decodeJson = genericDecodeAeson Argonaut.defaultOptions
281 decodeJson = genericDecodeAeson Argonaut.defaultOptions
293−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe _
282+derive instance genericCipher_IdentityCipher_ssn_Maybe :: Generic Cipher_IdentityCipher_ssn_Maybe _
294−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
283+derive instance eqCipher_IdentityCipher_ssn_Maybe :: Eq Cipher_IdentityCipher_ssn_Maybe
295−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
284+derive instance ordCipher_IdentityCipher_ssn_Maybe :: Ord Cipher_IdentityCipher_ssn_Maybe
296
285
297−newtype Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe =
286+newtype Cipher_IdentityCipher_state_Maybe =
298− Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe (Maybe String)
287+ Cipher_IdentityCipher_state_Maybe (Maybe String)
299
288
300−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe _
289+derive instance newtypeCipher_IdentityCipher_state_Maybe :: Newtype Cipher_IdentityCipher_state_Maybe _
301−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe where
290+instance encodeJsonCipher_IdentityCipher_state_Maybe :: EncodeJson Cipher_IdentityCipher_state_Maybe where
302 encodeJson = genericEncodeAeson Argonaut.defaultOptions
291 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
304 decodeJson = genericDecodeAeson Argonaut.defaultOptions
293 decodeJson = genericDecodeAeson Argonaut.defaultOptions
305−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe _
294+derive instance genericCipher_IdentityCipher_state_Maybe :: Generic Cipher_IdentityCipher_state_Maybe _
306−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
295+derive instance eqCipher_IdentityCipher_state_Maybe :: Eq Cipher_IdentityCipher_state_Maybe
307−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
296+derive instance ordCipher_IdentityCipher_state_Maybe :: Ord Cipher_IdentityCipher_state_Maybe
308
297
309−newtype Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe =
298+newtype Cipher_IdentityCipher_title_Maybe =
310− Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe (Maybe String)
299+ Cipher_IdentityCipher_title_Maybe (Maybe String)
311
300
312−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe _
301+derive instance newtypeCipher_IdentityCipher_title_Maybe :: Newtype Cipher_IdentityCipher_title_Maybe _
313−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe where
302+instance encodeJsonCipher_IdentityCipher_title_Maybe :: EncodeJson Cipher_IdentityCipher_title_Maybe where
314 encodeJson = genericEncodeAeson Argonaut.defaultOptions
303 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
316 decodeJson = genericDecodeAeson Argonaut.defaultOptions
305 decodeJson = genericDecodeAeson Argonaut.defaultOptions
317−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe _
306+derive instance genericCipher_IdentityCipher_title_Maybe :: Generic Cipher_IdentityCipher_title_Maybe _
318−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
307+derive instance eqCipher_IdentityCipher_title_Maybe :: Eq Cipher_IdentityCipher_title_Maybe
319−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
308+derive instance ordCipher_IdentityCipher_title_Maybe :: Ord Cipher_IdentityCipher_title_Maybe
320
309
321−newtype Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe =
310+newtype Cipher_IdentityCipher_username_Maybe =
322− Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe (Maybe String)
311+ Cipher_IdentityCipher_username_Maybe (Maybe String)
323
312
324−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe _
313+derive instance newtypeCipher_IdentityCipher_username_Maybe :: Newtype Cipher_IdentityCipher_username_Maybe _
325−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe where
314+instance encodeJsonCipher_IdentityCipher_username_Maybe :: EncodeJson Cipher_IdentityCipher_username_Maybe where
326 encodeJson = genericEncodeAeson Argonaut.defaultOptions
315 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
328 decodeJson = genericDecodeAeson Argonaut.defaultOptions
317 decodeJson = genericDecodeAeson Argonaut.defaultOptions
329−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe _
318+derive instance genericCipher_IdentityCipher_username_Maybe :: Generic Cipher_IdentityCipher_username_Maybe _
330−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
319+derive instance eqCipher_IdentityCipher_username_Maybe :: Eq Cipher_IdentityCipher_username_Maybe
331−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_state_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
320+derive instance ordCipher_IdentityCipher_username_Maybe :: Ord Cipher_IdentityCipher_username_Maybe
332
321
333−newtype Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe =
322+newtype Cipher_IdentityCipher =
334− Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe (Maybe String)
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+ }
335
343
336−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe _
344+derive instance newtypeCipher_IdentityCipher :: Newtype Cipher_IdentityCipher _
337−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe where
345+instance encodeJsonCipher_IdentityCipher :: EncodeJson Cipher_IdentityCipher where
338 encodeJson = genericEncodeAeson Argonaut.defaultOptions
346 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
340 decodeJson = genericDecodeAeson Argonaut.defaultOptions
348 decodeJson = genericDecodeAeson Argonaut.defaultOptions
341−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe _
349+derive instance genericCipher_IdentityCipher :: Generic Cipher_IdentityCipher _
342−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
350+derive instance eqCipher_IdentityCipher :: Eq Cipher_IdentityCipher
343−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_title_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
351+derive instance ordCipher_IdentityCipher :: Ord Cipher_IdentityCipher
344
352
345−newtype Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe =
353+newtype Cipher_LoginCipher_password_Maybe =
346− Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe (Maybe String)
354+ Cipher_LoginCipher_password_Maybe (Maybe String)
347
355
348−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Newtype Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe _
356+derive instance newtypeCipher_LoginCipher_password_Maybe :: Newtype Cipher_LoginCipher_password_Maybe _
349−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe where
357+instance encodeJsonCipher_LoginCipher_password_Maybe :: EncodeJson Cipher_LoginCipher_password_Maybe where
350 encodeJson = genericEncodeAeson Argonaut.defaultOptions
358 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
352 decodeJson = genericDecodeAeson Argonaut.defaultOptions
360 decodeJson = genericDecodeAeson Argonaut.defaultOptions
353−derive instance genericSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Generic Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe _
361+derive instance genericCipher_LoginCipher_password_Maybe :: Generic Cipher_LoginCipher_password_Maybe _
354−derive instance eqSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Eq Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
362+derive instance eqCipher_LoginCipher_password_Maybe :: Eq Cipher_LoginCipher_password_Maybe
355−derive instance ordSub_LoadCipher_cipherType_IdentityCipher_username_Maybe :: Ord Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
363+derive instance ordCipher_LoginCipher_password_Maybe :: Ord Cipher_LoginCipher_password_Maybe
356
364
357−newtype Sub_LoadCipher_cipherType_IdentityCipher =
365+newtype Cipher_LoginCipher_uris_List =
358− Sub_LoadCipher_cipherType_IdentityCipher {
366+ Cipher_LoginCipher_uris_List (Array String)
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− }
378
367
379−derive instance newtypeSub_LoadCipher_cipherType_IdentityCipher :: Newtype Sub_LoadCipher_cipherType_IdentityCipher _
368+derive instance newtypeCipher_LoginCipher_uris_List :: Newtype Cipher_LoginCipher_uris_List _
380−instance encodeJsonSub_LoadCipher_cipherType_IdentityCipher :: EncodeJson Sub_LoadCipher_cipherType_IdentityCipher where
369+instance encodeJsonCipher_LoginCipher_uris_List :: EncodeJson Cipher_LoginCipher_uris_List where
381 encodeJson = genericEncodeAeson Argonaut.defaultOptions
370 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
383 decodeJson = genericDecodeAeson Argonaut.defaultOptions
372 decodeJson = genericDecodeAeson Argonaut.defaultOptions
384−derive instance genericSub_LoadCipher_cipherType_IdentityCipher :: Generic Sub_LoadCipher_cipherType_IdentityCipher _
373+derive instance genericCipher_LoginCipher_uris_List :: Generic Cipher_LoginCipher_uris_List _
385−derive instance eqSub_LoadCipher_cipherType_IdentityCipher :: Eq Sub_LoadCipher_cipherType_IdentityCipher
374+derive instance eqCipher_LoginCipher_uris_List :: Eq Cipher_LoginCipher_uris_List
386−derive instance ordSub_LoadCipher_cipherType_IdentityCipher :: Ord Sub_LoadCipher_cipherType_IdentityCipher
375+derive instance ordCipher_LoginCipher_uris_List :: Ord Cipher_LoginCipher_uris_List
387
376
388−newtype Sub_LoadCipher_cipherType_LoginCipher_password_Maybe =
377+newtype Cipher_LoginCipher_username_Maybe =
389− Sub_LoadCipher_cipherType_LoginCipher_password_Maybe (Maybe String)
378+ Cipher_LoginCipher_username_Maybe (Maybe String)
390
379
391−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Newtype Sub_LoadCipher_cipherType_LoginCipher_password_Maybe _
380+derive instance newtypeCipher_LoginCipher_username_Maybe :: Newtype Cipher_LoginCipher_username_Maybe _
392−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_password_Maybe where
381+instance encodeJsonCipher_LoginCipher_username_Maybe :: EncodeJson Cipher_LoginCipher_username_Maybe where
393 encodeJson = genericEncodeAeson Argonaut.defaultOptions
382 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
395 decodeJson = genericDecodeAeson Argonaut.defaultOptions
384 decodeJson = genericDecodeAeson Argonaut.defaultOptions
396−derive instance genericSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Generic Sub_LoadCipher_cipherType_LoginCipher_password_Maybe _
385+derive instance genericCipher_LoginCipher_username_Maybe :: Generic Cipher_LoginCipher_username_Maybe _
397−derive instance eqSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Eq Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
386+derive instance eqCipher_LoginCipher_username_Maybe :: Eq Cipher_LoginCipher_username_Maybe
398−derive instance ordSub_LoadCipher_cipherType_LoginCipher_password_Maybe :: Ord Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
387+derive instance ordCipher_LoginCipher_username_Maybe :: Ord Cipher_LoginCipher_username_Maybe
399
388
400−newtype Sub_LoadCipher_cipherType_LoginCipher_uris_List =
389+newtype Cipher_LoginCipher =
401− Sub_LoadCipher_cipherType_LoginCipher_uris_List (Array String)
390+ Cipher_LoginCipher {
391+ password :: Cipher_LoginCipher_password_Maybe
392+ , uris :: Cipher_LoginCipher_uris_List
393+ , username :: Cipher_LoginCipher_username_Maybe
394+ }
402
395
403−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_uris_List :: Newtype Sub_LoadCipher_cipherType_LoginCipher_uris_List _
396+derive instance newtypeCipher_LoginCipher :: Newtype Cipher_LoginCipher _
404−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_uris_List :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_uris_List where
397+instance encodeJsonCipher_LoginCipher :: EncodeJson Cipher_LoginCipher where
405 encodeJson = genericEncodeAeson Argonaut.defaultOptions
398 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
407 decodeJson = genericDecodeAeson Argonaut.defaultOptions
400 decodeJson = genericDecodeAeson Argonaut.defaultOptions
408−derive instance genericSub_LoadCipher_cipherType_LoginCipher_uris_List :: Generic Sub_LoadCipher_cipherType_LoginCipher_uris_List _
401+derive instance genericCipher_LoginCipher :: Generic Cipher_LoginCipher _
409−derive instance eqSub_LoadCipher_cipherType_LoginCipher_uris_List :: Eq Sub_LoadCipher_cipherType_LoginCipher_uris_List
402+derive instance eqCipher_LoginCipher :: Eq Cipher_LoginCipher
410−derive instance ordSub_LoadCipher_cipherType_LoginCipher_uris_List :: Ord Sub_LoadCipher_cipherType_LoginCipher_uris_List
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
411
410
412−newtype Sub_LoadCipher_cipherType_LoginCipher_username_Maybe =
411+instance encodeJsonCipher :: EncodeJson Cipher where
413− Sub_LoadCipher_cipherType_LoginCipher_username_Maybe (Maybe String)
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
414
424
415−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Newtype Sub_LoadCipher_cipherType_LoginCipher_username_Maybe _
425+instance encodeJsonCipherType :: EncodeJson CipherType where
416−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher_username_Maybe where
417 encodeJson = genericEncodeAeson Argonaut.defaultOptions
426 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
419 decodeJson = genericDecodeAeson Argonaut.defaultOptions
428 decodeJson = genericDecodeAeson Argonaut.defaultOptions
420−derive instance genericSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Generic Sub_LoadCipher_cipherType_LoginCipher_username_Maybe _
429+derive instance genericCipherType :: Generic CipherType _
421−derive instance eqSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Eq Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
430+derive instance eqCipherType :: Eq CipherType
422−derive instance ordSub_LoadCipher_cipherType_LoginCipher_username_Maybe :: Ord Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
431+derive instance ordCipherType :: Ord CipherType
423
432
424−newtype Sub_LoadCipher_cipherType_LoginCipher =
433+newtype Cmd_Login =
425− Sub_LoadCipher_cipherType_LoginCipher {
434+ Cmd_Login {
426− password :: Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
435+ email :: String
427− , uris :: Sub_LoadCipher_cipherType_LoginCipher_uris_List
436+ , password :: String
428− , username :: Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
437+ , server :: String
429 }
438 }
430
439
431−derive instance newtypeSub_LoadCipher_cipherType_LoginCipher :: Newtype Sub_LoadCipher_cipherType_LoginCipher _
440+derive instance newtypeCmd_Login :: Newtype Cmd_Login _
432−instance encodeJsonSub_LoadCipher_cipherType_LoginCipher :: EncodeJson Sub_LoadCipher_cipherType_LoginCipher where
441+instance encodeJsonCmd_Login :: EncodeJson Cmd_Login where
433 encodeJson = genericEncodeAeson Argonaut.defaultOptions
442 encodeJson = genericEncodeAeson Argonaut.defaultOptions
434−instance decodeJsonSub_LoadCipher_cipherType_LoginCipher :: DecodeJson Sub_LoadCipher_cipherType_LoginCipher where
443+instance decodeJsonCmd_Login :: DecodeJson Cmd_Login where
435 decodeJson = genericDecodeAeson Argonaut.defaultOptions
444 decodeJson = genericDecodeAeson Argonaut.defaultOptions
436−derive instance genericSub_LoadCipher_cipherType_LoginCipher :: Generic Sub_LoadCipher_cipherType_LoginCipher _
445+derive instance genericCmd_Login :: Generic Cmd_Login _
437−derive instance eqSub_LoadCipher_cipherType_LoginCipher :: Eq Sub_LoadCipher_cipherType_LoginCipher
446+derive instance eqCmd_Login :: Eq Cmd_Login
438−derive instance ordSub_LoadCipher_cipherType_LoginCipher :: Ord Sub_LoadCipher_cipherType_LoginCipher
447+derive instance ordCmd_Login :: Ord Cmd_Login
439
448
440−data Sub_LoadCipher_cipherType =
449+data Cmd =
441− CardCipher Sub_LoadCipher_cipherType_CardCipher
450+ Copy String
442− | IdentityCipher Sub_LoadCipher_cipherType_IdentityCipher
451+ | Init
443− | LoginCipher Sub_LoadCipher_cipherType_LoginCipher
452+ | Login Cmd_Login
444− | NoteCipher String
453+ | NeedCiphersList
454+ | NeedEmail
455+ | NeedsReset
456+ | Open String
457+ | RequestCipher String
458+ | SendMasterPassword String
445
459
446−instance encodeJsonSub_LoadCipher_cipherType :: EncodeJson Sub_LoadCipher_cipherType where
460+instance encodeJsonCmd :: EncodeJson Cmd where
447 encodeJson = genericEncodeAeson Argonaut.defaultOptions
461 encodeJson = genericEncodeAeson Argonaut.defaultOptions
448−instance decodeJsonSub_LoadCipher_cipherType :: DecodeJson Sub_LoadCipher_cipherType where
462+instance decodeJsonCmd :: DecodeJson Cmd where
449 decodeJson = genericDecodeAeson Argonaut.defaultOptions
463 decodeJson = genericDecodeAeson Argonaut.defaultOptions
450−derive instance genericSub_LoadCipher_cipherType :: Generic Sub_LoadCipher_cipherType _
464+derive instance genericCmd :: Generic Cmd _
451−derive instance eqSub_LoadCipher_cipherType :: Eq Sub_LoadCipher_cipherType
465+derive instance eqCmd :: Eq Cmd
452−derive instance ordSub_LoadCipher_cipherType :: Ord Sub_LoadCipher_cipherType
466+derive instance ordCmd :: Ord Cmd
453
467
454newtype Sub_LoadCipher =
468newtype Sub_LoadCipher =
455 Sub_LoadCipher {
469 Sub_LoadCipher {
456− cipherType :: Sub_LoadCipher_cipherType
470+ cipherType :: Cipher
457 , id :: String
471 , id :: String
458 , name :: String
472 , name :: String
459 }
473 }
@@ -467,23 +481,9 @@ derive instance genericSub_LoadCipher :: Generic Sub_LoadCipher _
467derive instance eqSub_LoadCipher :: Eq Sub_LoadCipher
481derive instance eqSub_LoadCipher :: Eq Sub_LoadCipher
468derive instance ordSub_LoadCipher :: Ord Sub_LoadCipher
482derive instance ordSub_LoadCipher :: Ord Sub_LoadCipher
469
483
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−
484newtype Sub_LoadCiphers =
484newtype Sub_LoadCiphers =
485 Sub_LoadCiphers {
485 Sub_LoadCiphers {
486− cipherType :: Sub_LoadCiphers_cipherType
486+ cipherType :: CipherType
487 , date :: String
487 , date :: String
488 , id :: String
488 , id :: String
489 , name :: String
489 , name :: String
backend/Main.purs+2−2
@@ -143,7 +143,7 @@ main = do
143 username <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.username)
143 username <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.username)
144 password <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.password)
144 password <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt login.password)
145 uris <- fromJOpt [] <$> ((traverse >>> traverse) (_.uri >>> decrypt) login.uris)
145 uris <- fromJOpt [] <$> ((traverse >>> traverse) (_.uri >>> decrypt) login.uris)
146− pure $ Bridge.LoginCipher $ Bridge.Sub_LoadCipher_cipherType_LoginCipher
146+ pure $ Bridge.LoginCipher $ Bridge.Cipher_LoginCipher
147 { username
147 { username
148 , password
148 , password
149 , uris: wrap uris
149 , uris: wrap uris
@@ -158,7 +158,7 @@ main = do
158 brand <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.brand)
158 brand <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.brand)
159 expMonth <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.expMonth)
159 expMonth <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.expMonth)
160 expYear <- wrap <<< fromJNullable Nothing <<< map Just <$> (traverse decrypt card.expYear)
160 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
162 { brand, cardholderName, code, expMonth, expYear, number }
162 { brand, cardholderName, code, expMonth, expYear, number }
163 n | cipherTypeIdentity == n -> do
163 n | cipherTypeIdentity == n -> do
164 case JNullable.toMaybe cipher.identity of
164 case JNullable.toMaybe cipher.identity of
bridge.yaml+68−63
@@ -6,11 +6,7 @@ Sub:
6 name: String
6 name: String
7 date: String
7 date: String
8 id: String
8 id: String
9− cipherType:
9+ cipherType: CipherType
10− - LoginType
11− - CardType
12− - NoteType
13− - IdentityType
14- LoginSuccessful
10- LoginSuccessful
15- NeedsMasterPassword:
11- NeedsMasterPassword:
16 server: String
12 server: String
@@ -19,64 +15,7 @@ Sub:
19- LoadCipher:
15- LoadCipher:
20 id: String
16 id: String
21 name: String
17 name: String
22− cipherType:
18+ cipherType: Cipher
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
80- RecieveEmail: String
19- RecieveEmail: String
81
20
82Cmd:
21Cmd:
@@ -92,3 +31,69 @@ Cmd:
92- NeedEmail
31- NeedEmail
93- Copy: String
32- Copy: String
94- Open: String
33- 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)
8import Set exposing (Set)
8import Set exposing (Set)
9
9
10
10
11−type alias Cmd_Login =
11+type alias Cipher_CardCipher_brand_Maybe = (Maybe String)
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−
76
12
77−type alias Sub_LoadCipher_cipherType_CardCipher_brand_Maybe = (Maybe String)
13+jsonDecCipher_CardCipher_brand_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_brand_Maybe )
78−
14+jsonDecCipher_CardCipher_brand_Maybe =
79−jsonDecSub_LoadCipher_cipherType_CardCipher_brand_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_brand_Maybe )
80−jsonDecSub_LoadCipher_cipherType_CardCipher_brand_Maybe =
81 Json.Decode.maybe (Json.Decode.string)
15 Json.Decode.maybe (Json.Decode.string)
82
16
83−jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe : Sub_LoadCipher_cipherType_CardCipher_brand_Maybe -> Value
17+jsonEncCipher_CardCipher_brand_Maybe : Cipher_CardCipher_brand_Maybe -> Value
84−jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe val = (maybeEncode (Json.Encode.string)) val
18+jsonEncCipher_CardCipher_brand_Maybe val = (maybeEncode (Json.Encode.string)) val
85
19
86
20
87
21
88−type alias Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe = (Maybe String)
22+type alias Cipher_CardCipher_cardholderName_Maybe = (Maybe String)
89
23
90−jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe )
24+jsonDecCipher_CardCipher_cardholderName_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_cardholderName_Maybe )
91−jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe =
25+jsonDecCipher_CardCipher_cardholderName_Maybe =
92 Json.Decode.maybe (Json.Decode.string)
26 Json.Decode.maybe (Json.Decode.string)
93
27
94−jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe : Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe -> Value
28+jsonEncCipher_CardCipher_cardholderName_Maybe : Cipher_CardCipher_cardholderName_Maybe -> Value
95−jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe val = (maybeEncode (Json.Encode.string)) val
29+jsonEncCipher_CardCipher_cardholderName_Maybe val = (maybeEncode (Json.Encode.string)) val
96
30
97
31
98
32
99−type alias Sub_LoadCipher_cipherType_CardCipher_code_Maybe = (Maybe String)
33+type alias Cipher_CardCipher_code_Maybe = (Maybe String)
100
34
101−jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_code_Maybe )
35+jsonDecCipher_CardCipher_code_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_code_Maybe )
102−jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe =
36+jsonDecCipher_CardCipher_code_Maybe =
103 Json.Decode.maybe (Json.Decode.string)
37 Json.Decode.maybe (Json.Decode.string)
104
38
105−jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe : Sub_LoadCipher_cipherType_CardCipher_code_Maybe -> Value
39+jsonEncCipher_CardCipher_code_Maybe : Cipher_CardCipher_code_Maybe -> Value
106−jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe val = (maybeEncode (Json.Encode.string)) val
40+jsonEncCipher_CardCipher_code_Maybe val = (maybeEncode (Json.Encode.string)) val
107
41
108
42
109
43
110−type alias Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe = (Maybe String)
44+type alias Cipher_CardCipher_expMonth_Maybe = (Maybe String)
111
45
112−jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe )
46+jsonDecCipher_CardCipher_expMonth_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_expMonth_Maybe )
113−jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe =
47+jsonDecCipher_CardCipher_expMonth_Maybe =
114 Json.Decode.maybe (Json.Decode.string)
48 Json.Decode.maybe (Json.Decode.string)
115
49
116−jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe : Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe -> Value
50+jsonEncCipher_CardCipher_expMonth_Maybe : Cipher_CardCipher_expMonth_Maybe -> Value
117−jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe val = (maybeEncode (Json.Encode.string)) val
51+jsonEncCipher_CardCipher_expMonth_Maybe val = (maybeEncode (Json.Encode.string)) val
118
52
119
53
120
54
121−type alias Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe = (Maybe String)
55+type alias Cipher_CardCipher_expYear_Maybe = (Maybe String)
122
56
123−jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe )
57+jsonDecCipher_CardCipher_expYear_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_expYear_Maybe )
124−jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe =
58+jsonDecCipher_CardCipher_expYear_Maybe =
125 Json.Decode.maybe (Json.Decode.string)
59 Json.Decode.maybe (Json.Decode.string)
126
60
127−jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe : Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe -> Value
61+jsonEncCipher_CardCipher_expYear_Maybe : Cipher_CardCipher_expYear_Maybe -> Value
128−jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe val = (maybeEncode (Json.Encode.string)) val
62+jsonEncCipher_CardCipher_expYear_Maybe val = (maybeEncode (Json.Encode.string)) val
129
63
130
64
131
65
132−type alias Sub_LoadCipher_cipherType_CardCipher_number_Maybe = (Maybe String)
66+type alias Cipher_CardCipher_number_Maybe = (Maybe String)
133
67
134−jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher_number_Maybe )
68+jsonDecCipher_CardCipher_number_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_number_Maybe )
135−jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe =
69+jsonDecCipher_CardCipher_number_Maybe =
136 Json.Decode.maybe (Json.Decode.string)
70 Json.Decode.maybe (Json.Decode.string)
137
71
138−jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe : Sub_LoadCipher_cipherType_CardCipher_number_Maybe -> Value
72+jsonEncCipher_CardCipher_number_Maybe : Cipher_CardCipher_number_Maybe -> Value
139−jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe val = (maybeEncode (Json.Encode.string)) val
73+jsonEncCipher_CardCipher_number_Maybe val = (maybeEncode (Json.Encode.string)) val
140
74
141
75
142
76
143−type alias Sub_LoadCipher_cipherType_CardCipher =
77+type alias Cipher_CardCipher =
144− { brand: Sub_LoadCipher_cipherType_CardCipher_brand_Maybe
78+ { brand: Cipher_CardCipher_brand_Maybe
145− , cardholderName: Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe
79+ , cardholderName: Cipher_CardCipher_cardholderName_Maybe
146− , code: Sub_LoadCipher_cipherType_CardCipher_code_Maybe
80+ , code: Cipher_CardCipher_code_Maybe
147− , expMonth: Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe
81+ , expMonth: Cipher_CardCipher_expMonth_Maybe
148− , expYear: Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe
82+ , expYear: Cipher_CardCipher_expYear_Maybe
149− , number: Sub_LoadCipher_cipherType_CardCipher_number_Maybe
83+ , number: Cipher_CardCipher_number_Maybe
150 }
84 }
151
85
152−jsonDecSub_LoadCipher_cipherType_CardCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_CardCipher )
86+jsonDecCipher_CardCipher : Json.Decode.Decoder ( Cipher_CardCipher )
153−jsonDecSub_LoadCipher_cipherType_CardCipher =
87+jsonDecCipher_CardCipher =
154 Json.Decode.succeed (\pbrand pcardholderName pcode pexpMonth pexpYear pnumber -> {brand = pbrand, cardholderName = pcardholderName, code = pcode, expMonth = pexpMonth, expYear = pexpYear, number = pnumber})
88 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)
89+ |> required "brand" (jsonDecCipher_CardCipher_brand_Maybe)
156− |> required "cardholderName" (jsonDecSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe)
90+ |> required "cardholderName" (jsonDecCipher_CardCipher_cardholderName_Maybe)
157− |> required "code" (jsonDecSub_LoadCipher_cipherType_CardCipher_code_Maybe)
91+ |> required "code" (jsonDecCipher_CardCipher_code_Maybe)
158− |> required "expMonth" (jsonDecSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe)
92+ |> required "expMonth" (jsonDecCipher_CardCipher_expMonth_Maybe)
159− |> required "expYear" (jsonDecSub_LoadCipher_cipherType_CardCipher_expYear_Maybe)
93+ |> required "expYear" (jsonDecCipher_CardCipher_expYear_Maybe)
160− |> required "number" (jsonDecSub_LoadCipher_cipherType_CardCipher_number_Maybe)
94+ |> required "number" (jsonDecCipher_CardCipher_number_Maybe)
161−
95+
162−jsonEncSub_LoadCipher_cipherType_CardCipher : Sub_LoadCipher_cipherType_CardCipher -> Value
96+jsonEncCipher_CardCipher : Cipher_CardCipher -> Value
163−jsonEncSub_LoadCipher_cipherType_CardCipher val =
97+jsonEncCipher_CardCipher val =
164 Json.Encode.object
98 Json.Encode.object
165− [ ("brand", jsonEncSub_LoadCipher_cipherType_CardCipher_brand_Maybe val.brand)
99+ [ ("brand", jsonEncCipher_CardCipher_brand_Maybe val.brand)
166− , ("cardholderName", jsonEncSub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe val.cardholderName)
100+ , ("cardholderName", jsonEncCipher_CardCipher_cardholderName_Maybe val.cardholderName)
167− , ("code", jsonEncSub_LoadCipher_cipherType_CardCipher_code_Maybe val.code)
101+ , ("code", jsonEncCipher_CardCipher_code_Maybe val.code)
168− , ("expMonth", jsonEncSub_LoadCipher_cipherType_CardCipher_expMonth_Maybe val.expMonth)
102+ , ("expMonth", jsonEncCipher_CardCipher_expMonth_Maybe val.expMonth)
169− , ("expYear", jsonEncSub_LoadCipher_cipherType_CardCipher_expYear_Maybe val.expYear)
103+ , ("expYear", jsonEncCipher_CardCipher_expYear_Maybe val.expYear)
170− , ("number", jsonEncSub_LoadCipher_cipherType_CardCipher_number_Maybe val.number)
104+ , ("number", jsonEncCipher_CardCipher_number_Maybe val.number)
171 ]
105 ]
172
106
173
107
174
108
175−type alias Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe = (Maybe String)
109+type alias Cipher_IdentityCipher_address1_Maybe = (Maybe String)
176
110
177−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe )
111+jsonDecCipher_IdentityCipher_address1_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address1_Maybe )
178−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe =
112+jsonDecCipher_IdentityCipher_address1_Maybe =
179 Json.Decode.maybe (Json.Decode.string)
113 Json.Decode.maybe (Json.Decode.string)
180
114
181−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe -> Value
115+jsonEncCipher_IdentityCipher_address1_Maybe : Cipher_IdentityCipher_address1_Maybe -> Value
182−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe val = (maybeEncode (Json.Encode.string)) val
116+jsonEncCipher_IdentityCipher_address1_Maybe val = (maybeEncode (Json.Encode.string)) val
183
117
184
118
185
119
186−type alias Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe = (Maybe String)
120+type alias Cipher_IdentityCipher_address2_Maybe = (Maybe String)
187
121
188−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe )
122+jsonDecCipher_IdentityCipher_address2_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address2_Maybe )
189−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe =
123+jsonDecCipher_IdentityCipher_address2_Maybe =
190 Json.Decode.maybe (Json.Decode.string)
124 Json.Decode.maybe (Json.Decode.string)
191
125
192−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe -> Value
126+jsonEncCipher_IdentityCipher_address2_Maybe : Cipher_IdentityCipher_address2_Maybe -> Value
193−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe val = (maybeEncode (Json.Encode.string)) val
127+jsonEncCipher_IdentityCipher_address2_Maybe val = (maybeEncode (Json.Encode.string)) val
194
128
195
129
196
130
197−type alias Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe = (Maybe String)
131+type alias Cipher_IdentityCipher_address3_Maybe = (Maybe String)
198
132
199−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe )
133+jsonDecCipher_IdentityCipher_address3_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_address3_Maybe )
200−jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe =
134+jsonDecCipher_IdentityCipher_address3_Maybe =
201 Json.Decode.maybe (Json.Decode.string)
135 Json.Decode.maybe (Json.Decode.string)
202
136
203−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe -> Value
137+jsonEncCipher_IdentityCipher_address3_Maybe : Cipher_IdentityCipher_address3_Maybe -> Value
204−jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe val = (maybeEncode (Json.Encode.string)) val
138+jsonEncCipher_IdentityCipher_address3_Maybe val = (maybeEncode (Json.Encode.string)) val
205
139
206
140
207
141
208−type alias Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe = (Maybe String)
142+type alias Cipher_IdentityCipher_city_Maybe = (Maybe String)
209
143
210−jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe )
144+jsonDecCipher_IdentityCipher_city_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_city_Maybe )
211−jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe =
145+jsonDecCipher_IdentityCipher_city_Maybe =
212 Json.Decode.maybe (Json.Decode.string)
146 Json.Decode.maybe (Json.Decode.string)
213
147
214−jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe -> Value
148+jsonEncCipher_IdentityCipher_city_Maybe : Cipher_IdentityCipher_city_Maybe -> Value
215−jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe val = (maybeEncode (Json.Encode.string)) val
149+jsonEncCipher_IdentityCipher_city_Maybe val = (maybeEncode (Json.Encode.string)) val
216
150
217
151
218
152
219−type alias Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe = (Maybe String)
153+type alias Cipher_IdentityCipher_company_Maybe = (Maybe String)
220
154
221−jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe )
155+jsonDecCipher_IdentityCipher_company_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_company_Maybe )
222−jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe =
156+jsonDecCipher_IdentityCipher_company_Maybe =
223 Json.Decode.maybe (Json.Decode.string)
157 Json.Decode.maybe (Json.Decode.string)
224
158
225−jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe -> Value
159+jsonEncCipher_IdentityCipher_company_Maybe : Cipher_IdentityCipher_company_Maybe -> Value
226−jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe val = (maybeEncode (Json.Encode.string)) val
160+jsonEncCipher_IdentityCipher_company_Maybe val = (maybeEncode (Json.Encode.string)) val
227
161
228
162
229
163
230−type alias Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe = (Maybe String)
164+type alias Cipher_IdentityCipher_country_Maybe = (Maybe String)
231
165
232−jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe )
166+jsonDecCipher_IdentityCipher_country_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_country_Maybe )
233−jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe =
167+jsonDecCipher_IdentityCipher_country_Maybe =
234 Json.Decode.maybe (Json.Decode.string)
168 Json.Decode.maybe (Json.Decode.string)
235
169
236−jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe -> Value
170+jsonEncCipher_IdentityCipher_country_Maybe : Cipher_IdentityCipher_country_Maybe -> Value
237−jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe val = (maybeEncode (Json.Encode.string)) val
171+jsonEncCipher_IdentityCipher_country_Maybe val = (maybeEncode (Json.Encode.string)) val
238
172
239
173
240
174
241−type alias Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe = (Maybe String)
175+type alias Cipher_IdentityCipher_email_Maybe = (Maybe String)
242
176
243−jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe )
177+jsonDecCipher_IdentityCipher_email_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_email_Maybe )
244−jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe =
178+jsonDecCipher_IdentityCipher_email_Maybe =
245 Json.Decode.maybe (Json.Decode.string)
179 Json.Decode.maybe (Json.Decode.string)
246
180
247−jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe -> Value
181+jsonEncCipher_IdentityCipher_email_Maybe : Cipher_IdentityCipher_email_Maybe -> Value
248−jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe val = (maybeEncode (Json.Encode.string)) val
182+jsonEncCipher_IdentityCipher_email_Maybe val = (maybeEncode (Json.Encode.string)) val
249
183
250
184
251
185
252−type alias Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe = (Maybe String)
186+type alias Cipher_IdentityCipher_firstName_Maybe = (Maybe String)
253
187
254−jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe )
188+jsonDecCipher_IdentityCipher_firstName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_firstName_Maybe )
255−jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe =
189+jsonDecCipher_IdentityCipher_firstName_Maybe =
256 Json.Decode.maybe (Json.Decode.string)
190 Json.Decode.maybe (Json.Decode.string)
257
191
258−jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe -> Value
192+jsonEncCipher_IdentityCipher_firstName_Maybe : Cipher_IdentityCipher_firstName_Maybe -> Value
259−jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe val = (maybeEncode (Json.Encode.string)) val
193+jsonEncCipher_IdentityCipher_firstName_Maybe val = (maybeEncode (Json.Encode.string)) val
260
194
261
195
262
196
263−type alias Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe = (Maybe String)
197+type alias Cipher_IdentityCipher_lastName_Maybe = (Maybe String)
264
198
265−jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe )
199+jsonDecCipher_IdentityCipher_lastName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_lastName_Maybe )
266−jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe =
200+jsonDecCipher_IdentityCipher_lastName_Maybe =
267 Json.Decode.maybe (Json.Decode.string)
201 Json.Decode.maybe (Json.Decode.string)
268
202
269−jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe -> Value
203+jsonEncCipher_IdentityCipher_lastName_Maybe : Cipher_IdentityCipher_lastName_Maybe -> Value
270−jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe val = (maybeEncode (Json.Encode.string)) val
204+jsonEncCipher_IdentityCipher_lastName_Maybe val = (maybeEncode (Json.Encode.string)) val
271
205
272
206
273
207
274−type alias Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe = (Maybe String)
208+type alias Cipher_IdentityCipher_licenseNumber_Maybe = (Maybe String)
275
209
276−jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe )
210+jsonDecCipher_IdentityCipher_licenseNumber_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_licenseNumber_Maybe )
277−jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe =
211+jsonDecCipher_IdentityCipher_licenseNumber_Maybe =
278 Json.Decode.maybe (Json.Decode.string)
212 Json.Decode.maybe (Json.Decode.string)
279
213
280−jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe -> Value
214+jsonEncCipher_IdentityCipher_licenseNumber_Maybe : Cipher_IdentityCipher_licenseNumber_Maybe -> Value
281−jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
215+jsonEncCipher_IdentityCipher_licenseNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
282
216
283
217
284
218
285−type alias Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe = (Maybe String)
219+type alias Cipher_IdentityCipher_middleName_Maybe = (Maybe String)
286
220
287−jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe )
221+jsonDecCipher_IdentityCipher_middleName_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_middleName_Maybe )
288−jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe =
222+jsonDecCipher_IdentityCipher_middleName_Maybe =
289 Json.Decode.maybe (Json.Decode.string)
223 Json.Decode.maybe (Json.Decode.string)
290
224
291−jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe -> Value
225+jsonEncCipher_IdentityCipher_middleName_Maybe : Cipher_IdentityCipher_middleName_Maybe -> Value
292−jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe val = (maybeEncode (Json.Encode.string)) val
226+jsonEncCipher_IdentityCipher_middleName_Maybe val = (maybeEncode (Json.Encode.string)) val
293
227
294
228
295
229
296−type alias Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe = (Maybe String)
230+type alias Cipher_IdentityCipher_passportNumber_Maybe = (Maybe String)
297
231
298−jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe )
232+jsonDecCipher_IdentityCipher_passportNumber_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_passportNumber_Maybe )
299−jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe =
233+jsonDecCipher_IdentityCipher_passportNumber_Maybe =
300 Json.Decode.maybe (Json.Decode.string)
234 Json.Decode.maybe (Json.Decode.string)
301
235
302−jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe -> Value
236+jsonEncCipher_IdentityCipher_passportNumber_Maybe : Cipher_IdentityCipher_passportNumber_Maybe -> Value
303−jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
237+jsonEncCipher_IdentityCipher_passportNumber_Maybe val = (maybeEncode (Json.Encode.string)) val
304
238
305
239
306
240
307−type alias Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe = (Maybe String)
241+type alias Cipher_IdentityCipher_phone_Maybe = (Maybe String)
308
242
309−jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe )
243+jsonDecCipher_IdentityCipher_phone_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_phone_Maybe )
310−jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe =
244+jsonDecCipher_IdentityCipher_phone_Maybe =
311 Json.Decode.maybe (Json.Decode.string)
245 Json.Decode.maybe (Json.Decode.string)
312
246
313−jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe -> Value
247+jsonEncCipher_IdentityCipher_phone_Maybe : Cipher_IdentityCipher_phone_Maybe -> Value
314−jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe val = (maybeEncode (Json.Encode.string)) val
248+jsonEncCipher_IdentityCipher_phone_Maybe val = (maybeEncode (Json.Encode.string)) val
315
249
316
250
317
251
318−type alias Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe = (Maybe String)
252+type alias Cipher_IdentityCipher_postalCode_Maybe = (Maybe String)
319
253
320−jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe )
254+jsonDecCipher_IdentityCipher_postalCode_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_postalCode_Maybe )
321−jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe =
255+jsonDecCipher_IdentityCipher_postalCode_Maybe =
322 Json.Decode.maybe (Json.Decode.string)
256 Json.Decode.maybe (Json.Decode.string)
323
257
324−jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe -> Value
258+jsonEncCipher_IdentityCipher_postalCode_Maybe : Cipher_IdentityCipher_postalCode_Maybe -> Value
325−jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe val = (maybeEncode (Json.Encode.string)) val
259+jsonEncCipher_IdentityCipher_postalCode_Maybe val = (maybeEncode (Json.Encode.string)) val
326
260
327
261
328
262
329−type alias Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe = (Maybe String)
263+type alias Cipher_IdentityCipher_ssn_Maybe = (Maybe String)
330
264
331−jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe )
265+jsonDecCipher_IdentityCipher_ssn_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_ssn_Maybe )
332−jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe =
266+jsonDecCipher_IdentityCipher_ssn_Maybe =
333 Json.Decode.maybe (Json.Decode.string)
267 Json.Decode.maybe (Json.Decode.string)
334
268
335−jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe -> Value
269+jsonEncCipher_IdentityCipher_ssn_Maybe : Cipher_IdentityCipher_ssn_Maybe -> Value
336−jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe val = (maybeEncode (Json.Encode.string)) val
270+jsonEncCipher_IdentityCipher_ssn_Maybe val = (maybeEncode (Json.Encode.string)) val
337
271
338
272
339
273
340−type alias Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe = (Maybe String)
274+type alias Cipher_IdentityCipher_state_Maybe = (Maybe String)
341
275
342−jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe )
276+jsonDecCipher_IdentityCipher_state_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_state_Maybe )
343−jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe =
277+jsonDecCipher_IdentityCipher_state_Maybe =
344 Json.Decode.maybe (Json.Decode.string)
278 Json.Decode.maybe (Json.Decode.string)
345
279
346−jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe -> Value
280+jsonEncCipher_IdentityCipher_state_Maybe : Cipher_IdentityCipher_state_Maybe -> Value
347−jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe val = (maybeEncode (Json.Encode.string)) val
281+jsonEncCipher_IdentityCipher_state_Maybe val = (maybeEncode (Json.Encode.string)) val
348
282
349
283
350
284
351−type alias Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe = (Maybe String)
285+type alias Cipher_IdentityCipher_title_Maybe = (Maybe String)
352
286
353−jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe )
287+jsonDecCipher_IdentityCipher_title_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_title_Maybe )
354−jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe =
288+jsonDecCipher_IdentityCipher_title_Maybe =
355 Json.Decode.maybe (Json.Decode.string)
289 Json.Decode.maybe (Json.Decode.string)
356
290
357−jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe -> Value
291+jsonEncCipher_IdentityCipher_title_Maybe : Cipher_IdentityCipher_title_Maybe -> Value
358−jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe val = (maybeEncode (Json.Encode.string)) val
292+jsonEncCipher_IdentityCipher_title_Maybe val = (maybeEncode (Json.Encode.string)) val
359
293
360
294
361
295
362−type alias Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe = (Maybe String)
296+type alias Cipher_IdentityCipher_username_Maybe = (Maybe String)
363
297
364−jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe )
298+jsonDecCipher_IdentityCipher_username_Maybe : Json.Decode.Decoder ( Cipher_IdentityCipher_username_Maybe )
365−jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe =
299+jsonDecCipher_IdentityCipher_username_Maybe =
366 Json.Decode.maybe (Json.Decode.string)
300 Json.Decode.maybe (Json.Decode.string)
367
301
368−jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe : Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe -> Value
302+jsonEncCipher_IdentityCipher_username_Maybe : Cipher_IdentityCipher_username_Maybe -> Value
369−jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
303+jsonEncCipher_IdentityCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
370−
304+
371−
305+
372−
306+
373−type alias Sub_LoadCipher_cipherType_IdentityCipher =
307+type alias Cipher_IdentityCipher =
374− { address1: Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe
308+ { address1: Cipher_IdentityCipher_address1_Maybe
375− , address2: Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe
309+ , address2: Cipher_IdentityCipher_address2_Maybe
376− , address3: Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe
310+ , address3: Cipher_IdentityCipher_address3_Maybe
377− , city: Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe
311+ , city: Cipher_IdentityCipher_city_Maybe
378− , company: Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe
312+ , company: Cipher_IdentityCipher_company_Maybe
379− , country: Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe
313+ , country: Cipher_IdentityCipher_country_Maybe
380− , email: Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe
314+ , email: Cipher_IdentityCipher_email_Maybe
381− , firstName: Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe
315+ , firstName: Cipher_IdentityCipher_firstName_Maybe
382− , lastName: Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe
316+ , lastName: Cipher_IdentityCipher_lastName_Maybe
383− , licenseNumber: Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe
317+ , licenseNumber: Cipher_IdentityCipher_licenseNumber_Maybe
384− , middleName: Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe
318+ , middleName: Cipher_IdentityCipher_middleName_Maybe
385− , passportNumber: Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe
319+ , passportNumber: Cipher_IdentityCipher_passportNumber_Maybe
386− , phone: Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe
320+ , phone: Cipher_IdentityCipher_phone_Maybe
387− , postalCode: Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe
321+ , postalCode: Cipher_IdentityCipher_postalCode_Maybe
388− , ssn: Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe
322+ , ssn: Cipher_IdentityCipher_ssn_Maybe
389− , state: Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe
323+ , state: Cipher_IdentityCipher_state_Maybe
390− , title: Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe
324+ , title: Cipher_IdentityCipher_title_Maybe
391− , username: Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe
325+ , username: Cipher_IdentityCipher_username_Maybe
392 }
326 }
393
327
394−jsonDecSub_LoadCipher_cipherType_IdentityCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_IdentityCipher )
328+jsonDecCipher_IdentityCipher : Json.Decode.Decoder ( Cipher_IdentityCipher )
395−jsonDecSub_LoadCipher_cipherType_IdentityCipher =
329+jsonDecCipher_IdentityCipher =
396 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})
330 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)
331+ |> required "address1" (jsonDecCipher_IdentityCipher_address1_Maybe)
398− |> required "address2" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe)
332+ |> required "address2" (jsonDecCipher_IdentityCipher_address2_Maybe)
399− |> required "address3" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe)
333+ |> required "address3" (jsonDecCipher_IdentityCipher_address3_Maybe)
400− |> required "city" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_city_Maybe)
334+ |> required "city" (jsonDecCipher_IdentityCipher_city_Maybe)
401− |> required "company" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_company_Maybe)
335+ |> required "company" (jsonDecCipher_IdentityCipher_company_Maybe)
402− |> required "country" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_country_Maybe)
336+ |> required "country" (jsonDecCipher_IdentityCipher_country_Maybe)
403− |> required "email" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_email_Maybe)
337+ |> required "email" (jsonDecCipher_IdentityCipher_email_Maybe)
404− |> required "firstName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe)
338+ |> required "firstName" (jsonDecCipher_IdentityCipher_firstName_Maybe)
405− |> required "lastName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe)
339+ |> required "lastName" (jsonDecCipher_IdentityCipher_lastName_Maybe)
406− |> required "licenseNumber" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe)
340+ |> required "licenseNumber" (jsonDecCipher_IdentityCipher_licenseNumber_Maybe)
407− |> required "middleName" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe)
341+ |> required "middleName" (jsonDecCipher_IdentityCipher_middleName_Maybe)
408− |> required "passportNumber" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe)
342+ |> required "passportNumber" (jsonDecCipher_IdentityCipher_passportNumber_Maybe)
409− |> required "phone" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe)
343+ |> required "phone" (jsonDecCipher_IdentityCipher_phone_Maybe)
410− |> required "postalCode" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe)
344+ |> required "postalCode" (jsonDecCipher_IdentityCipher_postalCode_Maybe)
411− |> required "ssn" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe)
345+ |> required "ssn" (jsonDecCipher_IdentityCipher_ssn_Maybe)
412− |> required "state" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_state_Maybe)
346+ |> required "state" (jsonDecCipher_IdentityCipher_state_Maybe)
413− |> required "title" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_title_Maybe)
347+ |> required "title" (jsonDecCipher_IdentityCipher_title_Maybe)
414− |> required "username" (jsonDecSub_LoadCipher_cipherType_IdentityCipher_username_Maybe)
348+ |> required "username" (jsonDecCipher_IdentityCipher_username_Maybe)
415−
349+
416−jsonEncSub_LoadCipher_cipherType_IdentityCipher : Sub_LoadCipher_cipherType_IdentityCipher -> Value
350+jsonEncCipher_IdentityCipher : Cipher_IdentityCipher -> Value
417−jsonEncSub_LoadCipher_cipherType_IdentityCipher val =
351+jsonEncCipher_IdentityCipher val =
418 Json.Encode.object
352 Json.Encode.object
419− [ ("address1", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address1_Maybe val.address1)
353+ [ ("address1", jsonEncCipher_IdentityCipher_address1_Maybe val.address1)
420− , ("address2", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address2_Maybe val.address2)
354+ , ("address2", jsonEncCipher_IdentityCipher_address2_Maybe val.address2)
421− , ("address3", jsonEncSub_LoadCipher_cipherType_IdentityCipher_address3_Maybe val.address3)
355+ , ("address3", jsonEncCipher_IdentityCipher_address3_Maybe val.address3)
422− , ("city", jsonEncSub_LoadCipher_cipherType_IdentityCipher_city_Maybe val.city)
356+ , ("city", jsonEncCipher_IdentityCipher_city_Maybe val.city)
423− , ("company", jsonEncSub_LoadCipher_cipherType_IdentityCipher_company_Maybe val.company)
357+ , ("company", jsonEncCipher_IdentityCipher_company_Maybe val.company)
424− , ("country", jsonEncSub_LoadCipher_cipherType_IdentityCipher_country_Maybe val.country)
358+ , ("country", jsonEncCipher_IdentityCipher_country_Maybe val.country)
425− , ("email", jsonEncSub_LoadCipher_cipherType_IdentityCipher_email_Maybe val.email)
359+ , ("email", jsonEncCipher_IdentityCipher_email_Maybe val.email)
426− , ("firstName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe val.firstName)
360+ , ("firstName", jsonEncCipher_IdentityCipher_firstName_Maybe val.firstName)
427− , ("lastName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe val.lastName)
361+ , ("lastName", jsonEncCipher_IdentityCipher_lastName_Maybe val.lastName)
428− , ("licenseNumber", jsonEncSub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe val.licenseNumber)
362+ , ("licenseNumber", jsonEncCipher_IdentityCipher_licenseNumber_Maybe val.licenseNumber)
429− , ("middleName", jsonEncSub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe val.middleName)
363+ , ("middleName", jsonEncCipher_IdentityCipher_middleName_Maybe val.middleName)
430− , ("passportNumber", jsonEncSub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe val.passportNumber)
364+ , ("passportNumber", jsonEncCipher_IdentityCipher_passportNumber_Maybe val.passportNumber)
431− , ("phone", jsonEncSub_LoadCipher_cipherType_IdentityCipher_phone_Maybe val.phone)
365+ , ("phone", jsonEncCipher_IdentityCipher_phone_Maybe val.phone)
432− , ("postalCode", jsonEncSub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe val.postalCode)
366+ , ("postalCode", jsonEncCipher_IdentityCipher_postalCode_Maybe val.postalCode)
433− , ("ssn", jsonEncSub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe val.ssn)
367+ , ("ssn", jsonEncCipher_IdentityCipher_ssn_Maybe val.ssn)
434− , ("state", jsonEncSub_LoadCipher_cipherType_IdentityCipher_state_Maybe val.state)
368+ , ("state", jsonEncCipher_IdentityCipher_state_Maybe val.state)
435− , ("title", jsonEncSub_LoadCipher_cipherType_IdentityCipher_title_Maybe val.title)
369+ , ("title", jsonEncCipher_IdentityCipher_title_Maybe val.title)
436− , ("username", jsonEncSub_LoadCipher_cipherType_IdentityCipher_username_Maybe val.username)
370+ , ("username", jsonEncCipher_IdentityCipher_username_Maybe val.username)
437 ]
371 ]
438
372
439
373
440
374
441−type alias Sub_LoadCipher_cipherType_LoginCipher_password_Maybe = (Maybe String)
375+type alias Cipher_LoginCipher_password_Maybe = (Maybe String)
442
376
443−jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_password_Maybe )
377+jsonDecCipher_LoginCipher_password_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_password_Maybe )
444−jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe =
378+jsonDecCipher_LoginCipher_password_Maybe =
445 Json.Decode.maybe (Json.Decode.string)
379 Json.Decode.maybe (Json.Decode.string)
446
380
447−jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe : Sub_LoadCipher_cipherType_LoginCipher_password_Maybe -> Value
381+jsonEncCipher_LoginCipher_password_Maybe : Cipher_LoginCipher_password_Maybe -> Value
448−jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe val = (maybeEncode (Json.Encode.string)) val
382+jsonEncCipher_LoginCipher_password_Maybe val = (maybeEncode (Json.Encode.string)) val
449
383
450
384
451
385
452−type alias Sub_LoadCipher_cipherType_LoginCipher_uris_List = (List String)
386+type alias Cipher_LoginCipher_uris_List = (List String)
453
387
454−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_uris_List )
388+jsonDecCipher_LoginCipher_uris_List : Json.Decode.Decoder ( Cipher_LoginCipher_uris_List )
455−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List =
389+jsonDecCipher_LoginCipher_uris_List =
456 Json.Decode.list (Json.Decode.string)
390 Json.Decode.list (Json.Decode.string)
457
391
458−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List : Sub_LoadCipher_cipherType_LoginCipher_uris_List -> Value
392+jsonEncCipher_LoginCipher_uris_List : Cipher_LoginCipher_uris_List -> Value
459−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
393+jsonEncCipher_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
460
394
461
395
462
396
463−type alias Sub_LoadCipher_cipherType_LoginCipher_username_Maybe = (Maybe String)
397+type alias Cipher_LoginCipher_username_Maybe = (Maybe String)
464
398
465−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_username_Maybe )
399+jsonDecCipher_LoginCipher_username_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_username_Maybe )
466−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe =
400+jsonDecCipher_LoginCipher_username_Maybe =
467 Json.Decode.maybe (Json.Decode.string)
401 Json.Decode.maybe (Json.Decode.string)
468
402
469−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Sub_LoadCipher_cipherType_LoginCipher_username_Maybe -> Value
403+jsonEncCipher_LoginCipher_username_Maybe : Cipher_LoginCipher_username_Maybe -> Value
470−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
404+jsonEncCipher_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
471
405
472
406
473
407
474−type alias Sub_LoadCipher_cipherType_LoginCipher =
408+type alias Cipher_LoginCipher =
475− { password: Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
409+ { password: Cipher_LoginCipher_password_Maybe
476− , uris: Sub_LoadCipher_cipherType_LoginCipher_uris_List
410+ , uris: Cipher_LoginCipher_uris_List
477− , username: Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
411+ , username: Cipher_LoginCipher_username_Maybe
478 }
412 }
479
413
480−jsonDecSub_LoadCipher_cipherType_LoginCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher )
414+jsonDecCipher_LoginCipher : Json.Decode.Decoder ( Cipher_LoginCipher )
481−jsonDecSub_LoadCipher_cipherType_LoginCipher =
415+jsonDecCipher_LoginCipher =
482 Json.Decode.succeed (\ppassword puris pusername -> {password = ppassword, uris = puris, username = pusername})
416 Json.Decode.succeed (\ppassword puris pusername -> {password = ppassword, uris = puris, username = pusername})
483− |> required "password" (jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe)
417+ |> required "password" (jsonDecCipher_LoginCipher_password_Maybe)
484− |> required "uris" (jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List)
418+ |> required "uris" (jsonDecCipher_LoginCipher_uris_List)
485− |> required "username" (jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe)
419+ |> required "username" (jsonDecCipher_LoginCipher_username_Maybe)
486
420
487−jsonEncSub_LoadCipher_cipherType_LoginCipher : Sub_LoadCipher_cipherType_LoginCipher -> Value
421+jsonEncCipher_LoginCipher : Cipher_LoginCipher -> Value
488−jsonEncSub_LoadCipher_cipherType_LoginCipher val =
422+jsonEncCipher_LoginCipher val =
489 Json.Encode.object
423 Json.Encode.object
490− [ ("password", jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe val.password)
424+ [ ("password", jsonEncCipher_LoginCipher_password_Maybe val.password)
491− , ("uris", jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val.uris)
425+ , ("uris", jsonEncCipher_LoginCipher_uris_List val.uris)
492− , ("username", jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val.username)
426+ , ("username", jsonEncCipher_LoginCipher_username_Maybe val.username)
493 ]
427 ]
494
428
495
429
496
430
497−type Sub_LoadCipher_cipherType =
431+type Cipher =
498− CardCipher Sub_LoadCipher_cipherType_CardCipher
432+ CardCipher Cipher_CardCipher
499− | IdentityCipher Sub_LoadCipher_cipherType_IdentityCipher
433+ | IdentityCipher Cipher_IdentityCipher
500− | LoginCipher Sub_LoadCipher_cipherType_LoginCipher
434+ | LoginCipher Cipher_LoginCipher
501 | NoteCipher String
435 | NoteCipher String
502
436
503−jsonDecSub_LoadCipher_cipherType : Json.Decode.Decoder ( Sub_LoadCipher_cipherType )
437+jsonDecCipher : Json.Decode.Decoder ( Cipher )
504−jsonDecSub_LoadCipher_cipherType =
438+jsonDecCipher =
505− let jsonDecDictSub_LoadCipher_cipherType = Dict.fromList
439+ let jsonDecDictCipher = Dict.fromList
506− [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecSub_LoadCipher_cipherType_CardCipher)))
440+ [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecCipher_CardCipher)))
507− , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecSub_LoadCipher_cipherType_IdentityCipher)))
441+ , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecCipher_IdentityCipher)))
508− , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecSub_LoadCipher_cipherType_LoginCipher)))
442+ , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecCipher_LoginCipher)))
509 , ("NoteCipher", Json.Decode.lazy (\_ -> Json.Decode.map NoteCipher (Json.Decode.string)))
443 , ("NoteCipher", Json.Decode.lazy (\_ -> Json.Decode.map NoteCipher (Json.Decode.string)))
510 ]
444 ]
511− jsonDecObjectSetSub_LoadCipher_cipherType = Set.fromList []
445+ jsonDecObjectSetCipher = Set.fromList []
512− in decodeSumTaggedObject "Sub_LoadCipher_cipherType" "tag" "contents" jsonDecDictSub_LoadCipher_cipherType jsonDecObjectSetSub_LoadCipher_cipherType
446+ in decodeSumTaggedObject "Cipher" "tag" "contents" jsonDecDictCipher jsonDecObjectSetCipher
513
447
514−jsonEncSub_LoadCipher_cipherType : Sub_LoadCipher_cipherType -> Value
448+jsonEncCipher : Cipher -> Value
515−jsonEncSub_LoadCipher_cipherType val =
449+jsonEncCipher val =
516 let keyval v = case v of
450 let keyval v = case v of
517− CardCipher v1 -> ("CardCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_CardCipher v1))
451+ CardCipher v1 -> ("CardCipher", encodeValue (jsonEncCipher_CardCipher v1))
518− IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_IdentityCipher v1))
452+ IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncCipher_IdentityCipher v1))
519− LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_LoginCipher v1))
453+ LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncCipher_LoginCipher v1))
520 NoteCipher v1 -> ("NoteCipher", encodeValue (Json.Encode.string v1))
454 NoteCipher v1 -> ("NoteCipher", encodeValue (Json.Encode.string v1))
521 in encodeSumTaggedObject "tag" "contents" keyval val
455 in encodeSumTaggedObject "tag" "contents" keyval val
522
456
523
457
524
458
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+
525type alias Sub_LoadCipher =
546type alias Sub_LoadCipher =
526− { cipherType: Sub_LoadCipher_cipherType
547+ { cipherType: Cipher
527 , id: String
548 , id: String
528 , name: String
549 , name: String
529 }
550 }
@@ -531,43 +552,22 @@ type alias Sub_LoadCipher =
531jsonDecSub_LoadCipher : Json.Decode.Decoder ( Sub_LoadCipher )
552jsonDecSub_LoadCipher : Json.Decode.Decoder ( Sub_LoadCipher )
532jsonDecSub_LoadCipher =
553jsonDecSub_LoadCipher =
533 Json.Decode.succeed (\pcipherType pid pname -> {cipherType = pcipherType, id = pid, name = pname})
554 Json.Decode.succeed (\pcipherType pid pname -> {cipherType = pcipherType, id = pid, name = pname})
534− |> required "cipherType" (jsonDecSub_LoadCipher_cipherType)
555+ |> required "cipherType" (jsonDecCipher)
535 |> required "id" (Json.Decode.string)
556 |> required "id" (Json.Decode.string)
536 |> required "name" (Json.Decode.string)
557 |> required "name" (Json.Decode.string)
537
558
538jsonEncSub_LoadCipher : Sub_LoadCipher -> Value
559jsonEncSub_LoadCipher : Sub_LoadCipher -> Value
539jsonEncSub_LoadCipher val =
560jsonEncSub_LoadCipher val =
540 Json.Encode.object
561 Json.Encode.object
541− [ ("cipherType", jsonEncSub_LoadCipher_cipherType val.cipherType)
562+ [ ("cipherType", jsonEncCipher val.cipherType)
542 , ("id", Json.Encode.string val.id)
563 , ("id", Json.Encode.string val.id)
543 , ("name", Json.Encode.string val.name)
564 , ("name", Json.Encode.string val.name)
544 ]
565 ]
545
566
546
567
547
568
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−
569type alias Sub_LoadCiphers =
569type alias Sub_LoadCiphers =
570− { cipherType: Sub_LoadCiphers_cipherType
570+ { cipherType: CipherType
571 , date: String
571 , date: String
572 , id: String
572 , id: String
573 , name: String
573 , name: String
@@ -576,7 +576,7 @@ type alias Sub_LoadCiphers =
576jsonDecSub_LoadCiphers : Json.Decode.Decoder ( Sub_LoadCiphers )
576jsonDecSub_LoadCiphers : Json.Decode.Decoder ( Sub_LoadCiphers )
577jsonDecSub_LoadCiphers =
577jsonDecSub_LoadCiphers =
578 Json.Decode.succeed (\pcipherType pdate pid pname -> {cipherType = pcipherType, date = pdate, id = pid, name = pname})
578 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)
580 |> required "date" (Json.Decode.string)
580 |> required "date" (Json.Decode.string)
581 |> required "id" (Json.Decode.string)
581 |> required "id" (Json.Decode.string)
582 |> required "name" (Json.Decode.string)
582 |> required "name" (Json.Decode.string)
@@ -584,7 +584,7 @@ jsonDecSub_LoadCiphers =
584jsonEncSub_LoadCiphers : Sub_LoadCiphers -> Value
584jsonEncSub_LoadCiphers : Sub_LoadCiphers -> Value
585jsonEncSub_LoadCiphers val =
585jsonEncSub_LoadCiphers val =
586 Json.Encode.object
586 Json.Encode.object
587− [ ("cipherType", jsonEncSub_LoadCiphers_cipherType val.cipherType)
587+ [ ("cipherType", jsonEncCipherType val.cipherType)
588 , ("date", Json.Encode.string val.date)
588 , ("date", Json.Encode.string val.date)
589 , ("id", Json.Encode.string val.id)
589 , ("id", Json.Encode.string val.id)
590 , ("name", Json.Encode.string val.name)
590 , ("name", Json.Encode.string val.name)
frontend/Pages/Ciphers.elm+1−1
@@ -25,7 +25,7 @@ type alias Model =
25
25
26type CiphersFilter
26type CiphersFilter
27 = AllCiphers
27 = AllCiphers
28− | SpecificCiphers Bridge.Sub_LoadCiphers_cipherType
28+ | SpecificCiphers Bridge.CipherType
29
29
30
30
31applyCipherFilter : CiphersFilter -> Bridge.Sub_LoadCiphers_List -> Bridge.Sub_LoadCiphers_List
31applyCipherFilter : CiphersFilter -> Bridge.Sub_LoadCiphers_List -> Bridge.Sub_LoadCiphers_List