@@ -8,566 +8,743 @@ import Dict exposing (Dict)
8import Set exposing (Set)
8import Set exposing (Set)
11−type alias Cmd_Login =
11+type alias Cipher_CardCipher_brand_Maybe = (Maybe String)
17−jsonDecCmd_Login : Json.Decode.Decoder ( Cmd_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)
24−jsonEncCmd_Login : Cmd_Login -> Value
25−jsonEncCmd_Login val =
27− [ ("email", Json.Encode.string val.email)
28− , ("password", Json.Encode.string val.password)
29− , ("server", Json.Encode.string val.server)
42− | RequestCipher String
43− | SendMasterPassword String
45−jsonDecCmd : Json.Decode.Decoder ( Cmd )
13+jsonDecCipher_CardCipher_brand_Maybe : Json.Decode.Decoder ( Cipher_CardCipher_brand_Maybe )
46−jsonDecCmd =
14+jsonDecCipher_CardCipher_brand_Maybe =
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)))
58− jsonDecObjectSetCmd = Set.fromList []
59− in decodeSumTaggedObject "Cmd" "tag" "contents" jsonDecDictCmd jsonDecObjectSetCmd
61−jsonEncCmd : Cmd -> Value
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
77−type alias Sub_LoadCipher_cipherType_CardCipher_brand_Maybe = (Maybe String)
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)
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
88−type alias Sub_LoadCipher_cipherType_CardCipher_cardholderName_Maybe = (Maybe String)
22+type alias Cipher_CardCipher_cardholderName_Maybe = (Maybe String)
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)
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
99−type alias Sub_LoadCipher_cipherType_CardCipher_code_Maybe = (Maybe String)
33+type alias Cipher_CardCipher_code_Maybe = (Maybe String)
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)
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
110−type alias Sub_LoadCipher_cipherType_CardCipher_expMonth_Maybe = (Maybe String)
44+type alias Cipher_CardCipher_expMonth_Maybe = (Maybe String)
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)
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
121−type alias Sub_LoadCipher_cipherType_CardCipher_expYear_Maybe = (Maybe String)
55+type alias Cipher_CardCipher_expYear_Maybe = (Maybe String)
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)
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
132−type alias Sub_LoadCipher_cipherType_CardCipher_number_Maybe = (Maybe String)
66+type alias Cipher_CardCipher_number_Maybe = (Maybe String)
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)
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
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
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)
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)
175−type alias Sub_LoadCipher_cipherType_IdentityCipher_address1_Maybe = (Maybe String)
109+type alias Cipher_IdentityCipher_address1_Maybe = (Maybe String)
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)
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
186−type alias Sub_LoadCipher_cipherType_IdentityCipher_address2_Maybe = (Maybe String)
120+type alias Cipher_IdentityCipher_address2_Maybe = (Maybe String)
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)
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
197−type alias Sub_LoadCipher_cipherType_IdentityCipher_address3_Maybe = (Maybe String)
131+type alias Cipher_IdentityCipher_address3_Maybe = (Maybe String)
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)
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
208−type alias Sub_LoadCipher_cipherType_IdentityCipher_city_Maybe = (Maybe String)
142+type alias Cipher_IdentityCipher_city_Maybe = (Maybe String)
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)
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
219−type alias Sub_LoadCipher_cipherType_IdentityCipher_company_Maybe = (Maybe String)
153+type alias Cipher_IdentityCipher_company_Maybe = (Maybe String)
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)
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
230−type alias Sub_LoadCipher_cipherType_IdentityCipher_country_Maybe = (Maybe String)
164+type alias Cipher_IdentityCipher_country_Maybe = (Maybe String)
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)
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
241−type alias Sub_LoadCipher_cipherType_IdentityCipher_email_Maybe = (Maybe String)
175+type alias Cipher_IdentityCipher_email_Maybe = (Maybe String)
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)
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
252−type alias Sub_LoadCipher_cipherType_IdentityCipher_firstName_Maybe = (Maybe String)
186+type alias Cipher_IdentityCipher_firstName_Maybe = (Maybe String)
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)
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
263−type alias Sub_LoadCipher_cipherType_IdentityCipher_lastName_Maybe = (Maybe String)
197+type alias Cipher_IdentityCipher_lastName_Maybe = (Maybe String)
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)
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
274−type alias Sub_LoadCipher_cipherType_IdentityCipher_licenseNumber_Maybe = (Maybe String)
208+type alias Cipher_IdentityCipher_licenseNumber_Maybe = (Maybe String)
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)
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
285−type alias Sub_LoadCipher_cipherType_IdentityCipher_middleName_Maybe = (Maybe String)
219+type alias Cipher_IdentityCipher_middleName_Maybe = (Maybe String)
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)
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
296−type alias Sub_LoadCipher_cipherType_IdentityCipher_passportNumber_Maybe = (Maybe String)
230+type alias Cipher_IdentityCipher_passportNumber_Maybe = (Maybe String)
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)
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
307−type alias Sub_LoadCipher_cipherType_IdentityCipher_phone_Maybe = (Maybe String)
241+type alias Cipher_IdentityCipher_phone_Maybe = (Maybe String)
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)
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
318−type alias Sub_LoadCipher_cipherType_IdentityCipher_postalCode_Maybe = (Maybe String)
252+type alias Cipher_IdentityCipher_postalCode_Maybe = (Maybe String)
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)
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
329−type alias Sub_LoadCipher_cipherType_IdentityCipher_ssn_Maybe = (Maybe String)
263+type alias Cipher_IdentityCipher_ssn_Maybe = (Maybe String)
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)
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
340−type alias Sub_LoadCipher_cipherType_IdentityCipher_state_Maybe = (Maybe String)
274+type alias Cipher_IdentityCipher_state_Maybe = (Maybe String)
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)
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
351−type alias Sub_LoadCipher_cipherType_IdentityCipher_title_Maybe = (Maybe String)
285+type alias Cipher_IdentityCipher_title_Maybe = (Maybe String)
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)
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
362−type alias Sub_LoadCipher_cipherType_IdentityCipher_username_Maybe = (Maybe String)
296+type alias Cipher_IdentityCipher_username_Maybe = (Maybe String)
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)
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
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
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)
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)
441−type alias Sub_LoadCipher_cipherType_LoginCipher_password_Maybe = (Maybe String)
375+type alias Cipher_LoginCipher_password_Maybe = (Maybe String)
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)
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
386+type alias Cipher_LoginCipher_totp_Maybe = (Maybe String)
388+jsonDecCipher_LoginCipher_totp_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_totp_Maybe )
389+jsonDecCipher_LoginCipher_totp_Maybe =
390+ Json.Decode.maybe (Json.Decode.string)
392+jsonEncCipher_LoginCipher_totp_Maybe : Cipher_LoginCipher_totp_Maybe -> Value
393+jsonEncCipher_LoginCipher_totp_Maybe val = (maybeEncode (Json.Encode.string)) val
452−type alias Sub_LoadCipher_cipherType_LoginCipher_uris_List = (List String)
454−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_uris_List )
397+type alias Cipher_LoginCipher_uris_List = (List String)
455−jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List =
398+
399+jsonDecCipher_LoginCipher_uris_List : Json.Decode.Decoder ( Cipher_LoginCipher_uris_List )
400+jsonDecCipher_LoginCipher_uris_List =
456 Json.Decode.list (Json.Decode.string)
401 Json.Decode.list (Json.Decode.string)
458−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List : Sub_LoadCipher_cipherType_LoginCipher_uris_List -> Value
403+jsonEncCipher_LoginCipher_uris_List : Cipher_LoginCipher_uris_List -> Value
459−jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
404+jsonEncCipher_LoginCipher_uris_List val = (Json.Encode.list Json.Encode.string) val
463−type alias Sub_LoadCipher_cipherType_LoginCipher_username_Maybe = (Maybe String)
408+type alias Cipher_LoginCipher_username_Maybe = (Maybe String)
465−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher_username_Maybe )
410+jsonDecCipher_LoginCipher_username_Maybe : Json.Decode.Decoder ( Cipher_LoginCipher_username_Maybe )
466−jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe =
411+jsonDecCipher_LoginCipher_username_Maybe =
467 Json.Decode.maybe (Json.Decode.string)
412 Json.Decode.maybe (Json.Decode.string)
469−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe : Sub_LoadCipher_cipherType_LoginCipher_username_Maybe -> Value
414+jsonEncCipher_LoginCipher_username_Maybe : Cipher_LoginCipher_username_Maybe -> Value
470−jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
415+jsonEncCipher_LoginCipher_username_Maybe val = (maybeEncode (Json.Encode.string)) val
474−type alias Sub_LoadCipher_cipherType_LoginCipher =
419+type alias Cipher_LoginCipher =
475− { password: Sub_LoadCipher_cipherType_LoginCipher_password_Maybe
420+ { password: Cipher_LoginCipher_password_Maybe
476− , uris: Sub_LoadCipher_cipherType_LoginCipher_uris_List
421+ , totp: Cipher_LoginCipher_totp_Maybe
477− , username: Sub_LoadCipher_cipherType_LoginCipher_username_Maybe
422+ , uris: Cipher_LoginCipher_uris_List
423+ , username: Cipher_LoginCipher_username_Maybe
480−jsonDecSub_LoadCipher_cipherType_LoginCipher : Json.Decode.Decoder ( Sub_LoadCipher_cipherType_LoginCipher )
426+jsonDecCipher_LoginCipher : Json.Decode.Decoder ( Cipher_LoginCipher )
481−jsonDecSub_LoadCipher_cipherType_LoginCipher =
427+jsonDecCipher_LoginCipher =
482− Json.Decode.succeed (\ppassword puris pusername -> {password = ppassword, uris = puris, username = pusername})
428+ Json.Decode.succeed (\ppassword ptotp puris pusername -> {password = ppassword, totp = ptotp, uris = puris, username = pusername})
483− |> required "password" (jsonDecSub_LoadCipher_cipherType_LoginCipher_password_Maybe)
429+ |> required "password" (jsonDecCipher_LoginCipher_password_Maybe)
484− |> required "uris" (jsonDecSub_LoadCipher_cipherType_LoginCipher_uris_List)
430+ |> required "totp" (jsonDecCipher_LoginCipher_totp_Maybe)
485− |> required "username" (jsonDecSub_LoadCipher_cipherType_LoginCipher_username_Maybe)
431+ |> required "uris" (jsonDecCipher_LoginCipher_uris_List)
432+ |> required "username" (jsonDecCipher_LoginCipher_username_Maybe)
487−jsonEncSub_LoadCipher_cipherType_LoginCipher : Sub_LoadCipher_cipherType_LoginCipher -> Value
434+jsonEncCipher_LoginCipher : Cipher_LoginCipher -> Value
488−jsonEncSub_LoadCipher_cipherType_LoginCipher val =
435+jsonEncCipher_LoginCipher val =
489 Json.Encode.object
436 Json.Encode.object
490− [ ("password", jsonEncSub_LoadCipher_cipherType_LoginCipher_password_Maybe val.password)
437+ [ ("password", jsonEncCipher_LoginCipher_password_Maybe val.password)
491− , ("uris", jsonEncSub_LoadCipher_cipherType_LoginCipher_uris_List val.uris)
438+ , ("totp", jsonEncCipher_LoginCipher_totp_Maybe val.totp)
492− , ("username", jsonEncSub_LoadCipher_cipherType_LoginCipher_username_Maybe val.username)
439+ , ("uris", jsonEncCipher_LoginCipher_uris_List val.uris)
440+ , ("username", jsonEncCipher_LoginCipher_username_Maybe val.username)
497−type Sub_LoadCipher_cipherType =
445+type Cipher =
498− CardCipher Sub_LoadCipher_cipherType_CardCipher
446+ CardCipher Cipher_CardCipher
499− | IdentityCipher Sub_LoadCipher_cipherType_IdentityCipher
447+ | IdentityCipher Cipher_IdentityCipher
500− | LoginCipher Sub_LoadCipher_cipherType_LoginCipher
448+ | LoginCipher Cipher_LoginCipher
501 | NoteCipher String
449 | NoteCipher String
503−jsonDecSub_LoadCipher_cipherType : Json.Decode.Decoder ( Sub_LoadCipher_cipherType )
451+jsonDecCipher : Json.Decode.Decoder ( Cipher )
504−jsonDecSub_LoadCipher_cipherType =
452+jsonDecCipher =
505− let jsonDecDictSub_LoadCipher_cipherType = Dict.fromList
453+ let jsonDecDictCipher = Dict.fromList
506− [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecSub_LoadCipher_cipherType_CardCipher)))
454+ [ ("CardCipher", Json.Decode.lazy (\_ -> Json.Decode.map CardCipher (jsonDecCipher_CardCipher)))
507− , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecSub_LoadCipher_cipherType_IdentityCipher)))
455+ , ("IdentityCipher", Json.Decode.lazy (\_ -> Json.Decode.map IdentityCipher (jsonDecCipher_IdentityCipher)))
508− , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecSub_LoadCipher_cipherType_LoginCipher)))
456+ , ("LoginCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoginCipher (jsonDecCipher_LoginCipher)))
509 , ("NoteCipher", Json.Decode.lazy (\_ -> Json.Decode.map NoteCipher (Json.Decode.string)))
457 , ("NoteCipher", Json.Decode.lazy (\_ -> Json.Decode.map NoteCipher (Json.Decode.string)))
511− jsonDecObjectSetSub_LoadCipher_cipherType = Set.fromList []
459+ jsonDecObjectSetCipher = Set.fromList []
512− in decodeSumTaggedObject "Sub_LoadCipher_cipherType" "tag" "contents" jsonDecDictSub_LoadCipher_cipherType jsonDecObjectSetSub_LoadCipher_cipherType
460+ in decodeSumTaggedObject "Cipher" "tag" "contents" jsonDecDictCipher jsonDecObjectSetCipher
514−jsonEncSub_LoadCipher_cipherType : Sub_LoadCipher_cipherType -> Value
462+jsonEncCipher : Cipher -> Value
515−jsonEncSub_LoadCipher_cipherType val =
463+jsonEncCipher val =
516 let keyval v = case v of
464 let keyval v = case v of
517− CardCipher v1 -> ("CardCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_CardCipher v1))
465+ CardCipher v1 -> ("CardCipher", encodeValue (jsonEncCipher_CardCipher v1))
518− IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_IdentityCipher v1))
466+ IdentityCipher v1 -> ("IdentityCipher", encodeValue (jsonEncCipher_IdentityCipher v1))
519− LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncSub_LoadCipher_cipherType_LoginCipher v1))
467+ LoginCipher v1 -> ("LoginCipher", encodeValue (jsonEncCipher_LoginCipher v1))
520 NoteCipher v1 -> ("NoteCipher", encodeValue (Json.Encode.string v1))
468 NoteCipher v1 -> ("NoteCipher", encodeValue (Json.Encode.string v1))
521 in encodeSumTaggedObject "tag" "contents" keyval val
469 in encodeSumTaggedObject "tag" "contents" keyval val
525−type alias Sub_LoadCipher =
473+type CipherType =
526− { cipherType: Sub_LoadCipher_cipherType
474+ CardType
479+jsonDecCipherType : Json.Decode.Decoder ( CipherType )
481+ let jsonDecDictCipherType = Dict.fromList [("CardType", CardType), ("IdentityType", IdentityType), ("LoginType", LoginType), ("NoteType", NoteType)]
482+ in decodeSumUnaries "CipherType" jsonDecDictCipherType
484+jsonEncCipherType : CipherType -> Value
485+jsonEncCipherType val =
487+ CardType -> Json.Encode.string "CardType"
488+ IdentityType -> Json.Encode.string "IdentityType"
489+ LoginType -> Json.Encode.string "LoginType"
490+ NoteType -> Json.Encode.string "NoteType"
494+type alias Cmd_ChooseSecondFactor =
496+ , factor: TwoFactorProviderType
498+ , requestFromServer: Bool
502+jsonDecCmd_ChooseSecondFactor : Json.Decode.Decoder ( Cmd_ChooseSecondFactor )
503+jsonDecCmd_ChooseSecondFactor =
504+ Json.Decode.succeed (\pemail pfactor ppassword prequestFromServer pserver -> {email = pemail, factor = pfactor, password = ppassword, requestFromServer = prequestFromServer, server = pserver})
505+ |> required "email" (Json.Decode.string)
506+ |> required "factor" (jsonDecTwoFactorProviderType)
507+ |> required "password" (Json.Decode.string)
508+ |> required "requestFromServer" (Json.Decode.bool)
509+ |> required "server" (Json.Decode.string)
511+jsonEncCmd_ChooseSecondFactor : Cmd_ChooseSecondFactor -> Value
512+jsonEncCmd_ChooseSecondFactor val =
514+ [ ("email", Json.Encode.string val.email)
515+ , ("factor", jsonEncTwoFactorProviderType val.factor)
516+ , ("password", Json.Encode.string val.password)
517+ , ("requestFromServer", Json.Encode.bool val.requestFromServer)
518+ , ("server", Json.Encode.string val.server)
523+type alias Cmd_Login_secondFactor =
524+ { provider: TwoFactorProviderType
529+jsonDecCmd_Login_secondFactor : Json.Decode.Decoder ( Cmd_Login_secondFactor )
530+jsonDecCmd_Login_secondFactor =
531+ Json.Decode.succeed (\pprovider premember ptoken -> {provider = pprovider, remember = premember, token = ptoken})
532+ |> required "provider" (jsonDecTwoFactorProviderType)
533+ |> required "remember" (Json.Decode.bool)
534+ |> required "token" (Json.Decode.string)
536+jsonEncCmd_Login_secondFactor : Cmd_Login_secondFactor -> Value
537+jsonEncCmd_Login_secondFactor val =
539+ [ ("provider", jsonEncTwoFactorProviderType val.provider)
540+ , ("remember", Json.Encode.bool val.remember)
541+ , ("token", Json.Encode.string val.token)
546+type alias Cmd_Login_secondFactor_Maybe = (Maybe Cmd_Login_secondFactor)
548+jsonDecCmd_Login_secondFactor_Maybe : Json.Decode.Decoder ( Cmd_Login_secondFactor_Maybe )
549+jsonDecCmd_Login_secondFactor_Maybe =
550+ Json.Decode.maybe (jsonDecCmd_Login_secondFactor)
552+jsonEncCmd_Login_secondFactor_Maybe : Cmd_Login_secondFactor_Maybe -> Value
553+jsonEncCmd_Login_secondFactor_Maybe val = (maybeEncode (jsonEncCmd_Login_secondFactor)) val
557+type alias Cmd_Login =
560+ , secondFactor: Cmd_Login_secondFactor_Maybe
564+jsonDecCmd_Login : Json.Decode.Decoder ( Cmd_Login )
566+ Json.Decode.succeed (\pemail ppassword psecondFactor pserver -> {email = pemail, password = ppassword, secondFactor = psecondFactor, server = pserver})
567+ |> required "email" (Json.Decode.string)
568+ |> required "password" (Json.Decode.string)
569+ |> required "secondFactor" (jsonDecCmd_Login_secondFactor_Maybe)
570+ |> required "server" (Json.Decode.string)
572+jsonEncCmd_Login : Cmd_Login -> Value
573+jsonEncCmd_Login val =
575+ [ ("email", Json.Encode.string val.email)
576+ , ("password", Json.Encode.string val.password)
577+ , ("secondFactor", jsonEncCmd_Login_secondFactor_Maybe val.secondFactor)
578+ , ("server", Json.Encode.string val.server)
584+ ChooseSecondFactor Cmd_ChooseSecondFactor
586+ | CreateCipher FullCipher
587+ | DeleteCipher FullCipher
588+ | GeneratePassword PasswordGeneratorConfig
595+ | RequestCipher String
596+ | RequestTotp String
597+ | SendMasterPassword String
598+ | UpdateCipher FullCipher
600+jsonDecCmd : Json.Decode.Decoder ( Cmd )
602+ let jsonDecDictCmd = Dict.fromList
603+ [ ("ChooseSecondFactor", Json.Decode.lazy (\_ -> Json.Decode.map ChooseSecondFactor (jsonDecCmd_ChooseSecondFactor)))
604+ , ("Copy", Json.Decode.lazy (\_ -> Json.Decode.map Copy (Json.Decode.string)))
605+ , ("CreateCipher", Json.Decode.lazy (\_ -> Json.Decode.map CreateCipher (jsonDecFullCipher)))
606+ , ("DeleteCipher", Json.Decode.lazy (\_ -> Json.Decode.map DeleteCipher (jsonDecFullCipher)))
607+ , ("GeneratePassword", Json.Decode.lazy (\_ -> Json.Decode.map GeneratePassword (jsonDecPasswordGeneratorConfig)))
608+ , ("Init", Json.Decode.lazy (\_ -> Json.Decode.succeed Init))
609+ , ("Login", Json.Decode.lazy (\_ -> Json.Decode.map Login (jsonDecCmd_Login)))
610+ , ("NeedCiphersList", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedCiphersList))
611+ , ("NeedEmail", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedEmail))
612+ , ("NeedsReset", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedsReset))
613+ , ("Open", Json.Decode.lazy (\_ -> Json.Decode.map Open (Json.Decode.string)))
614+ , ("RequestCipher", Json.Decode.lazy (\_ -> Json.Decode.map RequestCipher (Json.Decode.string)))
615+ , ("RequestTotp", Json.Decode.lazy (\_ -> Json.Decode.map RequestTotp (Json.Decode.string)))
616+ , ("SendMasterPassword", Json.Decode.lazy (\_ -> Json.Decode.map SendMasterPassword (Json.Decode.string)))
617+ , ("UpdateCipher", Json.Decode.lazy (\_ -> Json.Decode.map UpdateCipher (jsonDecFullCipher)))
619+ jsonDecObjectSetCmd = Set.fromList []
620+ in decodeSumTaggedObject "Cmd" "tag" "contents" jsonDecDictCmd jsonDecObjectSetCmd
622+jsonEncCmd : Cmd -> Value
624+ let keyval v = case v of
625+ ChooseSecondFactor v1 -> ("ChooseSecondFactor", encodeValue (jsonEncCmd_ChooseSecondFactor v1))
626+ Copy v1 -> ("Copy", encodeValue (Json.Encode.string v1))
627+ CreateCipher v1 -> ("CreateCipher", encodeValue (jsonEncFullCipher v1))
628+ DeleteCipher v1 -> ("DeleteCipher", encodeValue (jsonEncFullCipher v1))
629+ GeneratePassword v1 -> ("GeneratePassword", encodeValue (jsonEncPasswordGeneratorConfig v1))
630+ Init -> ("Init", encodeValue (Json.Encode.list identity []))
631+ Login v1 -> ("Login", encodeValue (jsonEncCmd_Login v1))
632+ NeedCiphersList -> ("NeedCiphersList", encodeValue (Json.Encode.list identity []))
633+ NeedEmail -> ("NeedEmail", encodeValue (Json.Encode.list identity []))
634+ NeedsReset -> ("NeedsReset", encodeValue (Json.Encode.list identity []))
635+ Open v1 -> ("Open", encodeValue (Json.Encode.string v1))
636+ RequestCipher v1 -> ("RequestCipher", encodeValue (Json.Encode.string v1))
637+ RequestTotp v1 -> ("RequestTotp", encodeValue (Json.Encode.string v1))
638+ SendMasterPassword v1 -> ("SendMasterPassword", encodeValue (Json.Encode.string v1))
639+ UpdateCipher v1 -> ("UpdateCipher", encodeValue (jsonEncFullCipher v1))
640+ in encodeSumTaggedObject "tag" "contents" keyval val
644+type alias FullCipher_collectionIds_List = (List String)
646+jsonDecFullCipher_collectionIds_List : Json.Decode.Decoder ( FullCipher_collectionIds_List )
647+jsonDecFullCipher_collectionIds_List =
648+ Json.Decode.list (Json.Decode.string)
650+jsonEncFullCipher_collectionIds_List : FullCipher_collectionIds_List -> Value
651+jsonEncFullCipher_collectionIds_List val = (Json.Encode.list Json.Encode.string) val
655+type alias FullCipher =
657+ , collectionIds: FullCipher_collectionIds_List
527 , id: String
659 , id: String
528 , name: String
660 , name: String
531−jsonDecSub_LoadCipher : Json.Decode.Decoder ( Sub_LoadCipher )
664+jsonDecFullCipher : Json.Decode.Decoder ( FullCipher )
532−jsonDecSub_LoadCipher =
665+jsonDecFullCipher =
533− Json.Decode.succeed (\pcipherType pid pname -> {cipherType = pcipherType, id = pid, name = pname})
666+ Json.Decode.succeed (\pcipher pcollectionIds pfavorite pid pname preprompt -> {cipher = pcipher, collectionIds = pcollectionIds, favorite = pfavorite, id = pid, name = pname, reprompt = preprompt})
534− |> required "cipherType" (jsonDecSub_LoadCipher_cipherType)
667+ |> required "cipher" (jsonDecCipher)
668+ |> required "collectionIds" (jsonDecFullCipher_collectionIds_List)
669+ |> required "favorite" (Json.Decode.bool)
535 |> required "id" (Json.Decode.string)
670 |> required "id" (Json.Decode.string)
536 |> required "name" (Json.Decode.string)
671 |> required "name" (Json.Decode.string)
672+ |> required "reprompt" (Json.Decode.int)
538−jsonEncSub_LoadCipher : Sub_LoadCipher -> Value
674+jsonEncFullCipher : FullCipher -> Value
539−jsonEncSub_LoadCipher val =
675+jsonEncFullCipher val =
540 Json.Encode.object
676 Json.Encode.object
541− [ ("cipherType", jsonEncSub_LoadCipher_cipherType val.cipherType)
677+ [ ("cipher", jsonEncCipher val.cipher)
678+ , ("collectionIds", jsonEncFullCipher_collectionIds_List val.collectionIds)
679+ , ("favorite", Json.Encode.bool val.favorite)
542 , ("id", Json.Encode.string val.id)
680 , ("id", Json.Encode.string val.id)
543 , ("name", Json.Encode.string val.name)
681 , ("name", Json.Encode.string val.name)
682+ , ("reprompt", Json.Encode.int val.reprompt)
548−type Sub_LoadCiphers_cipherType =
687+type alias PasswordGeneratorConfig =
549− CardType
688+ { ambiguous: Bool
550− | IdentityType
689+ , capitalize: Bool
551− | LoginType
690+ , includeNumber: Bool
552− | NoteType
691+ , length: Int
553−
692+ , lowercase: Bool
554−jsonDecSub_LoadCiphers_cipherType : Json.Decode.Decoder ( Sub_LoadCiphers_cipherType )
693+ , minLowercase: Int
555−jsonDecSub_LoadCiphers_cipherType =
694+ , minNumber: Int
556− let jsonDecDictSub_LoadCiphers_cipherType = Dict.fromList [("CardType", CardType), ("IdentityType", IdentityType), ("LoginType", LoginType), ("NoteType", NoteType)]
695+ , minSpecial: Int
557− in decodeSumUnaries "Sub_LoadCiphers_cipherType" jsonDecDictSub_LoadCiphers_cipherType
696+ , minUppercase: Int
702+ , wordSeparator: String
559−jsonEncSub_LoadCiphers_cipherType : Sub_LoadCiphers_cipherType -> Value
705+jsonDecPasswordGeneratorConfig : Json.Decode.Decoder ( PasswordGeneratorConfig )
560−jsonEncSub_LoadCiphers_cipherType val =
706+jsonDecPasswordGeneratorConfig =
561− case val of
707+ Json.Decode.succeed (\pambiguous pcapitalize pincludeNumber plength plowercase pminLowercase pminNumber pminSpecial pminUppercase pnumWords pnumber pspecial ptype puppercase pwordSeparator -> {ambiguous = pambiguous, capitalize = pcapitalize, includeNumber = pincludeNumber, length = plength, lowercase = plowercase, minLowercase = pminLowercase, minNumber = pminNumber, minSpecial = pminSpecial, minUppercase = pminUppercase, numWords = pnumWords, number = pnumber, special = pspecial, type_ = ptype, uppercase = puppercase, wordSeparator = pwordSeparator})
562− CardType -> Json.Encode.string "CardType"
708+ |> required "ambiguous" (Json.Decode.bool)
563− IdentityType -> Json.Encode.string "IdentityType"
709+ |> required "capitalize" (Json.Decode.bool)
564− LoginType -> Json.Encode.string "LoginType"
710+ |> required "includeNumber" (Json.Decode.bool)
565− NoteType -> Json.Encode.string "NoteType"
711+ |> required "length" (Json.Decode.int)
712+ |> required "lowercase" (Json.Decode.bool)
713+ |> required "minLowercase" (Json.Decode.int)
714+ |> required "minNumber" (Json.Decode.int)
715+ |> required "minSpecial" (Json.Decode.int)
716+ |> required "minUppercase" (Json.Decode.int)
717+ |> required "numWords" (Json.Decode.int)
718+ |> required "number" (Json.Decode.bool)
719+ |> required "special" (Json.Decode.bool)
720+ |> required "type" (Json.Decode.string)
721+ |> required "uppercase" (Json.Decode.bool)
722+ |> required "wordSeparator" (Json.Decode.string)
724+jsonEncPasswordGeneratorConfig : PasswordGeneratorConfig -> Value
725+jsonEncPasswordGeneratorConfig val =
727+ [ ("ambiguous", Json.Encode.bool val.ambiguous)
728+ , ("capitalize", Json.Encode.bool val.capitalize)
729+ , ("includeNumber", Json.Encode.bool val.includeNumber)
730+ , ("length", Json.Encode.int val.length)
731+ , ("lowercase", Json.Encode.bool val.lowercase)
732+ , ("minLowercase", Json.Encode.int val.minLowercase)
733+ , ("minNumber", Json.Encode.int val.minNumber)
734+ , ("minSpecial", Json.Encode.int val.minSpecial)
735+ , ("minUppercase", Json.Encode.int val.minUppercase)
736+ , ("numWords", Json.Encode.int val.numWords)
737+ , ("number", Json.Encode.bool val.number)
738+ , ("special", Json.Encode.bool val.special)
739+ , ("type", Json.Encode.string val.type_)
740+ , ("uppercase", Json.Encode.bool val.uppercase)
741+ , ("wordSeparator", Json.Encode.string val.wordSeparator)
569type alias Sub_LoadCiphers =
746type alias Sub_LoadCiphers =
570− { cipherType: Sub_LoadCiphers_cipherType
747+ { cipherType: CipherType
571 , date: String
748 , date: String
572 , id: String
749 , id: String
573 , name: String
750 , name: String
@@ -576,7 +753,7 @@ type alias Sub_LoadCiphers =
576jsonDecSub_LoadCiphers : Json.Decode.Decoder ( Sub_LoadCiphers )
753jsonDecSub_LoadCiphers : Json.Decode.Decoder ( Sub_LoadCiphers )
577jsonDecSub_LoadCiphers =
754jsonDecSub_LoadCiphers =
578 Json.Decode.succeed (\pcipherType pdate pid pname -> {cipherType = pcipherType, date = pdate, id = pid, name = pname})
755 Json.Decode.succeed (\pcipherType pdate pid pname -> {cipherType = pcipherType, date = pdate, id = pid, name = pname})
579− |> required "cipherType" (jsonDecSub_LoadCiphers_cipherType)
756+ |> required "cipherType" (jsonDecCipherType)
580 |> required "date" (Json.Decode.string)
757 |> required "date" (Json.Decode.string)
581 |> required "id" (Json.Decode.string)
758 |> required "id" (Json.Decode.string)
582 |> required "name" (Json.Decode.string)
759 |> required "name" (Json.Decode.string)
@@ -584,7 +761,7 @@ jsonDecSub_LoadCiphers =
584jsonEncSub_LoadCiphers : Sub_LoadCiphers -> Value
761jsonEncSub_LoadCiphers : Sub_LoadCiphers -> Value
585jsonEncSub_LoadCiphers val =
762jsonEncSub_LoadCiphers val =
586 Json.Encode.object
763 Json.Encode.object
587− [ ("cipherType", jsonEncSub_LoadCiphers_cipherType val.cipherType)
764+ [ ("cipherType", jsonEncCipherType val.cipherType)
588 , ("date", Json.Encode.string val.date)
765 , ("date", Json.Encode.string val.date)
589 , ("id", Json.Encode.string val.id)
766 , ("id", Json.Encode.string val.id)
590 , ("name", Json.Encode.string val.name)
767 , ("name", Json.Encode.string val.name)
@@ -623,27 +800,77 @@ jsonEncSub_NeedsMasterPassword val =
803+type alias Sub_NeedsSecondFactor_List = (List TwoFactorProviderType)
805+jsonDecSub_NeedsSecondFactor_List : Json.Decode.Decoder ( Sub_NeedsSecondFactor_List )
806+jsonDecSub_NeedsSecondFactor_List =
807+ Json.Decode.list (jsonDecTwoFactorProviderType)
809+jsonEncSub_NeedsSecondFactor_List : Sub_NeedsSecondFactor_List -> Value
810+jsonEncSub_NeedsSecondFactor_List val = (Json.Encode.list jsonEncTwoFactorProviderType) val
814+type alias Sub_Totp =
820+jsonDecSub_Totp : Json.Decode.Decoder ( Sub_Totp )
822+ Json.Decode.succeed (\pcode pinterval psource -> {code = pcode, interval = pinterval, source = psource})
823+ |> required "code" (Json.Decode.string)
824+ |> required "interval" (Json.Decode.int)
825+ |> required "source" (Json.Decode.string)
827+jsonEncSub_Totp : Sub_Totp -> Value
828+jsonEncSub_Totp val =
830+ [ ("code", Json.Encode.string val.code)
831+ , ("interval", Json.Encode.int val.interval)
832+ , ("source", Json.Encode.string val.source)
626type Sub =
837type Sub =
839+ | CipherChanged FullCipher
840+ | CipherDeleted FullCipher
627− Error String
841+ | Error String
842+ | GeneratedPassword String
628− | LoadCipher Sub_LoadCipher
843+ | LoadCipher FullCipher
629 | LoadCiphers Sub_LoadCiphers_List
844 | LoadCiphers Sub_LoadCiphers_List
630 | LoginSuccessful
845 | LoginSuccessful
846+ | NeedsCaptcha String
631 | NeedsLogin
847 | NeedsLogin
632 | NeedsMasterPassword Sub_NeedsMasterPassword
848 | NeedsMasterPassword Sub_NeedsMasterPassword
849+ | NeedsSecondFactor Sub_NeedsSecondFactor_List
633 | RecieveEmail String
850 | RecieveEmail String
636jsonDecSub : Json.Decode.Decoder ( Sub )
855jsonDecSub : Json.Decode.Decoder ( Sub )
637jsonDecSub =
856jsonDecSub =
638 let jsonDecDictSub = Dict.fromList
857 let jsonDecDictSub = Dict.fromList
858+ [ ("CaptchaDone", Json.Decode.lazy (\_ -> Json.Decode.succeed CaptchaDone))
859+ , ("CipherChanged", Json.Decode.lazy (\_ -> Json.Decode.map CipherChanged (jsonDecFullCipher)))
860+ , ("CipherDeleted", Json.Decode.lazy (\_ -> Json.Decode.map CipherDeleted (jsonDecFullCipher)))
639− [ ("Error", Json.Decode.lazy (\_ -> Json.Decode.map Error (Json.Decode.string)))
861+ , ("Error", Json.Decode.lazy (\_ -> Json.Decode.map Error (Json.Decode.string)))
862+ , ("GeneratedPassword", Json.Decode.lazy (\_ -> Json.Decode.map GeneratedPassword (Json.Decode.string)))
640− , ("LoadCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoadCipher (jsonDecSub_LoadCipher)))
863+ , ("LoadCipher", Json.Decode.lazy (\_ -> Json.Decode.map LoadCipher (jsonDecFullCipher)))
641 , ("LoadCiphers", Json.Decode.lazy (\_ -> Json.Decode.map LoadCiphers (jsonDecSub_LoadCiphers_List)))
864 , ("LoadCiphers", Json.Decode.lazy (\_ -> Json.Decode.map LoadCiphers (jsonDecSub_LoadCiphers_List)))
642 , ("LoginSuccessful", Json.Decode.lazy (\_ -> Json.Decode.succeed LoginSuccessful))
865 , ("LoginSuccessful", Json.Decode.lazy (\_ -> Json.Decode.succeed LoginSuccessful))
866+ , ("NeedsCaptcha", Json.Decode.lazy (\_ -> Json.Decode.map NeedsCaptcha (Json.Decode.string)))
643 , ("NeedsLogin", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedsLogin))
867 , ("NeedsLogin", Json.Decode.lazy (\_ -> Json.Decode.succeed NeedsLogin))
644 , ("NeedsMasterPassword", Json.Decode.lazy (\_ -> Json.Decode.map NeedsMasterPassword (jsonDecSub_NeedsMasterPassword)))
868 , ("NeedsMasterPassword", Json.Decode.lazy (\_ -> Json.Decode.map NeedsMasterPassword (jsonDecSub_NeedsMasterPassword)))
869+ , ("NeedsSecondFactor", Json.Decode.lazy (\_ -> Json.Decode.map NeedsSecondFactor (jsonDecSub_NeedsSecondFactor_List)))
645 , ("RecieveEmail", Json.Decode.lazy (\_ -> Json.Decode.map RecieveEmail (Json.Decode.string)))
870 , ("RecieveEmail", Json.Decode.lazy (\_ -> Json.Decode.map RecieveEmail (Json.Decode.string)))
646 , ("Reset", Json.Decode.lazy (\_ -> Json.Decode.succeed Reset))
871 , ("Reset", Json.Decode.lazy (\_ -> Json.Decode.succeed Reset))
872+ , ("Totp", Json.Decode.lazy (\_ -> Json.Decode.map Totp (jsonDecSub_Totp)))
873+ , ("WrongPassword", Json.Decode.lazy (\_ -> Json.Decode.succeed WrongPassword))
648 jsonDecObjectSetSub = Set.fromList []
875 jsonDecObjectSetSub = Set.fromList []
649 in decodeSumTaggedObject "Sub" "tag" "contents" jsonDecDictSub jsonDecObjectSetSub
876 in decodeSumTaggedObject "Sub" "tag" "contents" jsonDecDictSub jsonDecObjectSetSub
@@ -651,13 +878,50 @@ jsonDecSub =
651jsonEncSub : Sub -> Value
878jsonEncSub : Sub -> Value
652jsonEncSub val =
879jsonEncSub val =
653 let keyval v = case v of
880 let keyval v = case v of
881+ CaptchaDone -> ("CaptchaDone", encodeValue (Json.Encode.list identity []))
882+ CipherChanged v1 -> ("CipherChanged", encodeValue (jsonEncFullCipher v1))
883+ CipherDeleted v1 -> ("CipherDeleted", encodeValue (jsonEncFullCipher v1))
654 Error v1 -> ("Error", encodeValue (Json.Encode.string v1))
884 Error v1 -> ("Error", encodeValue (Json.Encode.string v1))
885+ GeneratedPassword v1 -> ("GeneratedPassword", encodeValue (Json.Encode.string v1))
655− LoadCipher v1 -> ("LoadCipher", encodeValue (jsonEncSub_LoadCipher v1))
886+ LoadCipher v1 -> ("LoadCipher", encodeValue (jsonEncFullCipher v1))
656 LoadCiphers v1 -> ("LoadCiphers", encodeValue (jsonEncSub_LoadCiphers_List v1))
887 LoadCiphers v1 -> ("LoadCiphers", encodeValue (jsonEncSub_LoadCiphers_List v1))
657 LoginSuccessful -> ("LoginSuccessful", encodeValue (Json.Encode.list identity []))
888 LoginSuccessful -> ("LoginSuccessful", encodeValue (Json.Encode.list identity []))
889+ NeedsCaptcha v1 -> ("NeedsCaptcha", encodeValue (Json.Encode.string v1))
658 NeedsLogin -> ("NeedsLogin", encodeValue (Json.Encode.list identity []))
890 NeedsLogin -> ("NeedsLogin", encodeValue (Json.Encode.list identity []))
659 NeedsMasterPassword v1 -> ("NeedsMasterPassword", encodeValue (jsonEncSub_NeedsMasterPassword v1))
891 NeedsMasterPassword v1 -> ("NeedsMasterPassword", encodeValue (jsonEncSub_NeedsMasterPassword v1))
892+ NeedsSecondFactor v1 -> ("NeedsSecondFactor", encodeValue (jsonEncSub_NeedsSecondFactor_List v1))
660 RecieveEmail v1 -> ("RecieveEmail", encodeValue (Json.Encode.string v1))
893 RecieveEmail v1 -> ("RecieveEmail", encodeValue (Json.Encode.string v1))
661 Reset -> ("Reset", encodeValue (Json.Encode.list identity []))
894 Reset -> ("Reset", encodeValue (Json.Encode.list identity []))
895+ Totp v1 -> ("Totp", encodeValue (jsonEncSub_Totp v1))
896+ WrongPassword -> ("WrongPassword", encodeValue (Json.Encode.list identity []))
662 in encodeSumTaggedObject "tag" "contents" keyval val
897 in encodeSumTaggedObject "tag" "contents" keyval val
901+type TwoFactorProviderType =
911+jsonDecTwoFactorProviderType : Json.Decode.Decoder ( TwoFactorProviderType )
912+jsonDecTwoFactorProviderType =
913+ let jsonDecDictTwoFactorProviderType = Dict.fromList [("Authenticator", Authenticator), ("Duo", Duo), ("Email", Email), ("OrganizationDuo", OrganizationDuo), ("Remember", Remember), ("U2f", U2f), ("WebAuthn", WebAuthn), ("Yubikey", Yubikey)]
914+ in decodeSumUnaries "TwoFactorProviderType" jsonDecDictTwoFactorProviderType
916+jsonEncTwoFactorProviderType : TwoFactorProviderType -> Value
917+jsonEncTwoFactorProviderType val =
919+ Authenticator -> Json.Encode.string "Authenticator"
920+ Duo -> Json.Encode.string "Duo"
921+ Email -> Json.Encode.string "Email"
922+ OrganizationDuo -> Json.Encode.string "OrganizationDuo"
923+ Remember -> Json.Encode.string "Remember"
924+ U2f -> Json.Encode.string "U2f"
925+ WebAuthn -> Json.Encode.string "WebAuthn"
926+ Yubikey -> Json.Encode.string "Yubikey"