From 8cfcfd0e9a56e136dafd37b5017d3a08bfddfcff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Michael=20R=C3=A4tzel?= Date: Sun, 13 Aug 2023 07:24:15 +0000 Subject: [PATCH] Format earlier generated --- .../Generated_de949816.elm | 1071 ++++++++++------- 1 file changed, 668 insertions(+), 403 deletions(-) diff --git a/2023-08-12-test/elm-time-tool/report/b08ce9ff5f7fa956a6dd5bf7344ac83528384e11f2ad49799f28799ea507f292/src/Backend/InterfaceToHost_Root/Generated_de949816.elm b/2023-08-12-test/elm-time-tool/report/b08ce9ff5f7fa956a6dd5bf7344ac83528384e11f2ad49799f28799ea507f292/src/Backend/InterfaceToHost_Root/Generated_de949816.elm index 10f729cc..fcda9f20 100644 --- a/2023-08-12-test/elm-time-tool/report/b08ce9ff5f7fa956a6dd5bf7344ac83528384e11f2ad49799f28799ea507f292/src/Backend/InterfaceToHost_Root/Generated_de949816.elm +++ b/2023-08-12-test/elm-time-tool/report/b08ce9ff5f7fa956a6dd5bf7344ac83528384e11f2ad49799f28799ea507f292/src/Backend/InterfaceToHost_Root/Generated_de949816.elm @@ -44,11 +44,11 @@ jsonEncode_56d0e7d4cd valueToEncode = jsonDecode_56d0e7d4cd = Json.Decode.succeed (\entryId entryBase64 -> { entryId = entryId, entryBase64 = entryBase64 }) |> jsonDecode_andMap - ( Json.Decode.field "entryId" + (Json.Decode.field "entryId" Json.Decode.int ) |> jsonDecode_andMap - ( Json.Decode.field "entryBase64" + (Json.Decode.field "entryBase64" Json.Decode.string ) @@ -64,11 +64,15 @@ jsonDecode_ac548902ae = jsonEncode_bd7075e023 valueToEncode = Json.Encode.object [ ( "store" - , jsonEncode__generic_Dict (\type_arg -> Json.Encode.int type_arg) (\type_arg -> Json.Encode.object - [ ( "entryBase64" - , Json.Encode.string type_arg.entryBase64 - ) - ]) valueToEncode.store + , jsonEncode__generic_Dict (\type_arg -> Json.Encode.int type_arg) + (\type_arg -> + Json.Encode.object + [ ( "entryBase64" + , Json.Encode.string type_arg.entryBase64 + ) + ] + ) + valueToEncode.store ) ] @@ -76,12 +80,14 @@ jsonEncode_bd7075e023 valueToEncode = jsonDecode_bd7075e023 = Json.Decode.succeed (\store -> { store = store }) |> jsonDecode_andMap - ( Json.Decode.field "store" - ( jsonDecode__generic_Dict Json.Decode.int (Json.Decode.succeed (\entryBase64 -> { entryBase64 = entryBase64 }) - |> jsonDecode_andMap - ( Json.Decode.field "entryBase64" - Json.Decode.string - )) + (Json.Decode.field "store" + (jsonDecode__generic_Dict Json.Decode.int + (Json.Decode.succeed (\entryBase64 -> { entryBase64 = entryBase64 }) + |> jsonDecode_andMap + (Json.Decode.field "entryBase64" + Json.Decode.string + ) + ) ) ) @@ -89,48 +95,64 @@ jsonDecode_bd7075e023 = jsonEncode_a199f85dcc valueToEncode = Json.Encode.object [ ( "startTasks" - , jsonEncode__generic_List (\type_arg -> Json.Encode.object - [ ( "taskId" - , Json.Encode.string type_arg.taskId - ) - , ( "task" - , jsonEncode_Backend_Generated_WebServiceShimTypes_Task type_arg.task - ) - ]) valueToEncode.startTasks + , jsonEncode__generic_List + (\type_arg -> + Json.Encode.object + [ ( "taskId" + , Json.Encode.string type_arg.taskId + ) + , ( "task" + , jsonEncode_Backend_Generated_WebServiceShimTypes_Task type_arg.task + ) + ] + ) + valueToEncode.startTasks ) , ( "notifyWhenPosixTimeHasArrived" - , jsonEncode__generic_Maybe (\type_arg -> Json.Encode.object - [ ( "minimumPosixTimeMilli" - , Json.Encode.int type_arg.minimumPosixTimeMilli - ) - ]) valueToEncode.notifyWhenPosixTimeHasArrived + , jsonEncode__generic_Maybe + (\type_arg -> + Json.Encode.object + [ ( "minimumPosixTimeMilli" + , Json.Encode.int type_arg.minimumPosixTimeMilli + ) + ] + ) + valueToEncode.notifyWhenPosixTimeHasArrived ) , ( "completeHttpResponses" - , jsonEncode__generic_List (\type_arg -> Json.Encode.object - [ ( "httpRequestId" - , Json.Encode.string type_arg.httpRequestId - ) - , ( "response" - , Json.Encode.object - [ ( "statusCode" - , Json.Encode.int type_arg.response.statusCode - ) - , ( "bodyAsBase64" - , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.response.bodyAsBase64 + , jsonEncode__generic_List + (\type_arg -> + Json.Encode.object + [ ( "httpRequestId" + , Json.Encode.string type_arg.httpRequestId ) - , ( "headersToAdd" - , jsonEncode__generic_List (\type_arg_ -> Json.Encode.object - [ ( "name" - , Json.Encode.string type_arg_.name + , ( "response" + , Json.Encode.object + [ ( "statusCode" + , Json.Encode.int type_arg.response.statusCode ) - , ( "values" - , jsonEncode__generic_List (\type_arg__ -> Json.Encode.string type_arg__) type_arg_.values + , ( "bodyAsBase64" + , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.response.bodyAsBase64 + ) + , ( "headersToAdd" + , jsonEncode__generic_List + (\type_arg_ -> + Json.Encode.object + [ ( "name" + , Json.Encode.string type_arg_.name + ) + , ( "values" + , jsonEncode__generic_List (\type_arg__ -> Json.Encode.string type_arg__) type_arg_.values + ) + ] + ) + type_arg.response.headersToAdd ) - ]) type_arg.response.headersToAdd + ] ) ] - ) - ]) valueToEncode.completeHttpResponses + ) + valueToEncode.completeHttpResponses ) ] @@ -138,62 +160,68 @@ jsonEncode_a199f85dcc valueToEncode = jsonDecode_a199f85dcc = Json.Decode.succeed (\startTasks notifyWhenPosixTimeHasArrived completeHttpResponses -> { startTasks = startTasks, notifyWhenPosixTimeHasArrived = notifyWhenPosixTimeHasArrived, completeHttpResponses = completeHttpResponses }) |> jsonDecode_andMap - ( Json.Decode.field "startTasks" - ( jsonDecode__generic_List (Json.Decode.succeed (\taskId task -> { taskId = taskId, task = task }) - |> jsonDecode_andMap - ( Json.Decode.field "taskId" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "task" - jsonDecode_Backend_Generated_WebServiceShimTypes_Task - )) + (Json.Decode.field "startTasks" + (jsonDecode__generic_List + (Json.Decode.succeed (\taskId task -> { taskId = taskId, task = task }) + |> jsonDecode_andMap + (Json.Decode.field "taskId" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "task" + jsonDecode_Backend_Generated_WebServiceShimTypes_Task + ) + ) ) ) |> jsonDecode_andMap - ( Json.Decode.field "notifyWhenPosixTimeHasArrived" - ( jsonDecode__generic_Maybe (Json.Decode.succeed (\minimumPosixTimeMilli -> { minimumPosixTimeMilli = minimumPosixTimeMilli }) - |> jsonDecode_andMap - ( Json.Decode.field "minimumPosixTimeMilli" - Json.Decode.int - )) + (Json.Decode.field "notifyWhenPosixTimeHasArrived" + (jsonDecode__generic_Maybe + (Json.Decode.succeed (\minimumPosixTimeMilli -> { minimumPosixTimeMilli = minimumPosixTimeMilli }) + |> jsonDecode_andMap + (Json.Decode.field "minimumPosixTimeMilli" + Json.Decode.int + ) + ) ) ) |> jsonDecode_andMap - ( Json.Decode.field "completeHttpResponses" - ( jsonDecode__generic_List (Json.Decode.succeed (\httpRequestId response -> { httpRequestId = httpRequestId, response = response }) - |> jsonDecode_andMap - ( Json.Decode.field "httpRequestId" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "response" - ( Json.Decode.succeed (\statusCode bodyAsBase64 headersToAdd -> { statusCode = statusCode, bodyAsBase64 = bodyAsBase64, headersToAdd = headersToAdd }) - |> jsonDecode_andMap - ( Json.Decode.field "statusCode" - Json.Decode.int - ) - |> jsonDecode_andMap - ( Json.Decode.field "bodyAsBase64" - ( jsonDecode__generic_Maybe Json.Decode.string + (Json.Decode.field "completeHttpResponses" + (jsonDecode__generic_List + (Json.Decode.succeed (\httpRequestId response -> { httpRequestId = httpRequestId, response = response }) + |> jsonDecode_andMap + (Json.Decode.field "httpRequestId" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "response" + (Json.Decode.succeed (\statusCode bodyAsBase64 headersToAdd -> { statusCode = statusCode, bodyAsBase64 = bodyAsBase64, headersToAdd = headersToAdd }) + |> jsonDecode_andMap + (Json.Decode.field "statusCode" + Json.Decode.int ) - ) - |> jsonDecode_andMap - ( Json.Decode.field "headersToAdd" - ( jsonDecode__generic_List (Json.Decode.succeed (\name values -> { name = name, values = values }) - |> jsonDecode_andMap - ( Json.Decode.field "name" - Json.Decode.string + |> jsonDecode_andMap + (Json.Decode.field "bodyAsBase64" + (jsonDecode__generic_Maybe Json.Decode.string) + ) + |> jsonDecode_andMap + (Json.Decode.field "headersToAdd" + (jsonDecode__generic_List + (Json.Decode.succeed (\name values -> { name = name, values = values }) + |> jsonDecode_andMap + (Json.Decode.field "name" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "values" + (jsonDecode__generic_List Json.Decode.string) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "values" - ( jsonDecode__generic_List Json.Decode.string - ) - )) + ) ) - ) + ) ) - )) + ) ) ) @@ -201,67 +229,86 @@ jsonDecode_a199f85dcc = jsonEncode_Backend_Generated_StateShimTypes_StateShimRequest valueToEncode = case valueToEncode of Backend.Generated.StateShimTypes.ApplyFunctionShimRequest tagArgument0 -> - Json.Encode.object [ ( "ApplyFunctionShimRequest", Json.Encode.list identity [ Json.Encode.object - [ ( "functionName" - , Json.Encode.string tagArgument0.functionName - ) - , ( "arguments" - , Json.Encode.object - [ ( "serializedArgumentsJson" - , jsonEncode__generic_List (\type_arg -> type_arg) tagArgument0.arguments.serializedArgumentsJson - ) - , ( "stateArgument" - , jsonEncode__generic_Maybe (\type_arg -> jsonEncode_Backend_Generated_StateShimTypes_StateSource type_arg) tagArgument0.arguments.stateArgument - ) + Json.Encode.object + [ ( "ApplyFunctionShimRequest" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "functionName" + , Json.Encode.string tagArgument0.functionName + ) + , ( "arguments" + , Json.Encode.object + [ ( "serializedArgumentsJson" + , jsonEncode__generic_List (\type_arg -> type_arg) tagArgument0.arguments.serializedArgumentsJson + ) + , ( "stateArgument" + , jsonEncode__generic_Maybe (\type_arg -> jsonEncode_Backend_Generated_StateShimTypes_StateSource type_arg) tagArgument0.arguments.stateArgument + ) + ] + ) + , ( "stateDestinationBranches" + , jsonEncode__generic_List (\type_arg -> Json.Encode.string type_arg) tagArgument0.stateDestinationBranches + ) + ] ] ) - , ( "stateDestinationBranches" - , jsonEncode__generic_List (\type_arg -> Json.Encode.string type_arg) tagArgument0.stateDestinationBranches - ) - ] ] ) ] + ] + Backend.Generated.StateShimTypes.EstimateSerializedStateLengthShimRequest tagArgument0 -> Json.Encode.object [ ( "EstimateSerializedStateLengthShimRequest", Json.Encode.list identity [ jsonEncode_Backend_Generated_StateShimTypes_StateSource tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.ListBranchesShimRequest -> Json.Encode.object [ ( "ListBranchesShimRequest", Json.Encode.list identity [] ) ] + Backend.Generated.StateShimTypes.ListExposedFunctionsShimRequest -> Json.Encode.object [ ( "ListExposedFunctionsShimRequest", Json.Encode.list identity [] ) ] + Backend.Generated.StateShimTypes.RemoveBranchesShimRequest tagArgument0 -> Json.Encode.object [ ( "RemoveBranchesShimRequest", Json.Encode.list identity [ jsonEncode__generic_List (\type_arg -> Json.Encode.string type_arg) tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.SerializeStateShimRequest tagArgument0 -> Json.Encode.object [ ( "SerializeStateShimRequest", Json.Encode.list identity [ jsonEncode_Backend_Generated_StateShimTypes_StateSource tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.SetBranchesStateShimRequest tagArgument0 tagArgument1 -> Json.Encode.object [ ( "SetBranchesStateShimRequest", Json.Encode.list identity [ jsonEncode_Backend_Generated_StateShimTypes_StateSource tagArgument0, jsonEncode__generic_List (\type_arg -> Json.Encode.string type_arg) tagArgument1 ] ) ] + Backend.Generated.StateShimTypes.TestAreStatesEqualRequest tagArgument0 -> Json.Encode.object [ ( "TestAreStatesEqualRequest", Json.Encode.list identity [ jsonEncode__generic_List (\type_arg -> jsonEncode_Backend_Generated_StateShimTypes_StateSource type_arg) tagArgument0 ] ) ] jsonDecode_Backend_Generated_StateShimTypes_StateShimRequest = Json.Decode.oneOf - [ Json.Decode.field "ApplyFunctionShimRequest" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.ApplyFunctionShimRequest (Json.Decode.index 0 (Json.Decode.succeed (\functionName arguments stateDestinationBranches -> { functionName = functionName, arguments = arguments, stateDestinationBranches = stateDestinationBranches }) - |> jsonDecode_andMap - ( Json.Decode.field "functionName" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "arguments" - ( Json.Decode.succeed (\serializedArgumentsJson stateArgument -> { serializedArgumentsJson = serializedArgumentsJson, stateArgument = stateArgument }) - |> jsonDecode_andMap - ( Json.Decode.field "serializedArgumentsJson" - ( jsonDecode__generic_List Json.Decode.value - ) - ) - |> jsonDecode_andMap - ( Json.Decode.field "stateArgument" - ( jsonDecode__generic_Maybe jsonDecode_Backend_Generated_StateShimTypes_StateSource - ) + [ Json.Decode.field "ApplyFunctionShimRequest" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.StateShimTypes.ApplyFunctionShimRequest + (Json.Decode.index 0 + (Json.Decode.succeed (\functionName arguments stateDestinationBranches -> { functionName = functionName, arguments = arguments, stateDestinationBranches = stateDestinationBranches }) + |> jsonDecode_andMap + (Json.Decode.field "functionName" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "arguments" + (Json.Decode.succeed (\serializedArgumentsJson stateArgument -> { serializedArgumentsJson = serializedArgumentsJson, stateArgument = stateArgument }) + |> jsonDecode_andMap + (Json.Decode.field "serializedArgumentsJson" + (jsonDecode__generic_List Json.Decode.value) + ) + |> jsonDecode_andMap + (Json.Decode.field "stateArgument" + (jsonDecode__generic_Maybe jsonDecode_Backend_Generated_StateShimTypes_StateSource) + ) + ) + ) + |> jsonDecode_andMap + (Json.Decode.field "stateDestinationBranches" + (jsonDecode__generic_List Json.Decode.string) + ) ) - ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "stateDestinationBranches" - ( jsonDecode__generic_List Json.Decode.string - ) - ))))) + ) , Json.Decode.field "EstimateSerializedStateLengthShimRequest" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.EstimateSerializedStateLengthShimRequest (Json.Decode.index 0 jsonDecode_Backend_Generated_StateShimTypes_StateSource))) , Json.Decode.field "ListBranchesShimRequest" (jsonDecodeSucceedWhenNotNull Backend.Generated.StateShimTypes.ListBranchesShimRequest) , Json.Decode.field "ListExposedFunctionsShimRequest" (jsonDecodeSucceedWhenNotNull Backend.Generated.StateShimTypes.ListExposedFunctionsShimRequest) @@ -275,124 +322,193 @@ jsonDecode_Backend_Generated_StateShimTypes_StateShimRequest = jsonEncode_Backend_Generated_StateShimTypes_StateShimResponse valueToEncode = case valueToEncode of Backend.Generated.StateShimTypes.ApplyFunctionShimResponse tagArgument0 -> - Json.Encode.object [ ( "ApplyFunctionShimResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) (\type_arg -> Json.Encode.object - [ ( "resultLessStateJson" - , jsonEncode__generic_Maybe (\type_arg_ -> type_arg_) type_arg.resultLessStateJson - ) - , ( "producedStateDifferentFromStateArgument" - , Json.Encode.bool type_arg.producedStateDifferentFromStateArgument + Json.Encode.object + [ ( "ApplyFunctionShimResponse" + , Json.Encode.list identity + [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) + (\type_arg -> + Json.Encode.object + [ ( "resultLessStateJson" + , jsonEncode__generic_Maybe (\type_arg_ -> type_arg_) type_arg.resultLessStateJson + ) + , ( "producedStateDifferentFromStateArgument" + , Json.Encode.bool type_arg.producedStateDifferentFromStateArgument + ) + ] + ) + tagArgument0 + ] ) - ]) tagArgument0 ] ) ] + ] + Backend.Generated.StateShimTypes.EstimateSerializedStateLengthShimResponse tagArgument0 -> Json.Encode.object [ ( "EstimateSerializedStateLengthShimResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) (\type_arg -> Json.Encode.int type_arg) tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.ListBranchesShimResponse tagArgument0 -> Json.Encode.object [ ( "ListBranchesShimResponse", Json.Encode.list identity [ jsonEncode__generic_List (\type_arg -> Json.Encode.string type_arg) tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.ListExposedFunctionsShimResponse tagArgument0 -> - Json.Encode.object [ ( "ListExposedFunctionsShimResponse", Json.Encode.list identity [ jsonEncode__generic_List (\type_arg -> Json.Encode.object - [ ( "functionName" - , Json.Encode.string type_arg.functionName - ) - , ( "functionDescription" - , Json.Encode.object - [ ( "returnType" - , Json.Encode.object - [ ( "sourceCodeText" - , Json.Encode.string type_arg.functionDescription.returnType.sourceCodeText - ) - , ( "containsAppStateType" - , Json.Encode.bool type_arg.functionDescription.returnType.containsAppStateType - ) - ] - ) - , ( "parameters" - , jsonEncode__generic_List (\type_arg_ -> Json.Encode.object - [ ( "patternSourceCodeText" - , Json.Encode.string type_arg_.patternSourceCodeText - ) - , ( "typeSourceCodeText" - , Json.Encode.string type_arg_.typeSourceCodeText - ) - , ( "typeIsAppStateType" - , Json.Encode.bool type_arg_.typeIsAppStateType - ) - ]) type_arg.functionDescription.parameters - ) + Json.Encode.object + [ ( "ListExposedFunctionsShimResponse" + , Json.Encode.list identity + [ jsonEncode__generic_List + (\type_arg -> + Json.Encode.object + [ ( "functionName" + , Json.Encode.string type_arg.functionName + ) + , ( "functionDescription" + , Json.Encode.object + [ ( "returnType" + , Json.Encode.object + [ ( "sourceCodeText" + , Json.Encode.string type_arg.functionDescription.returnType.sourceCodeText + ) + , ( "containsAppStateType" + , Json.Encode.bool type_arg.functionDescription.returnType.containsAppStateType + ) + ] + ) + , ( "parameters" + , jsonEncode__generic_List + (\type_arg_ -> + Json.Encode.object + [ ( "patternSourceCodeText" + , Json.Encode.string type_arg_.patternSourceCodeText + ) + , ( "typeSourceCodeText" + , Json.Encode.string type_arg_.typeSourceCodeText + ) + , ( "typeIsAppStateType" + , Json.Encode.bool type_arg_.typeIsAppStateType + ) + ] + ) + type_arg.functionDescription.parameters + ) + ] + ) + ] + ) + tagArgument0 ] ) - ]) tagArgument0 ] ) ] + ] + Backend.Generated.StateShimTypes.RemoveBranchesShimResponse tagArgument0 -> - Json.Encode.object [ ( "RemoveBranchesShimResponse", Json.Encode.list identity [ Json.Encode.object - [ ( "removedCount" - , Json.Encode.int tagArgument0.removedCount + Json.Encode.object + [ ( "RemoveBranchesShimResponse" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "removedCount" + , Json.Encode.int tagArgument0.removedCount + ) + ] + ] ) - ] ] ) ] + ] + Backend.Generated.StateShimTypes.SerializeStateShimResponse tagArgument0 -> Json.Encode.object [ ( "SerializeStateShimResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) (\type_arg -> type_arg) tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.SetBranchesStateShimResponse tagArgument0 -> Json.Encode.object [ ( "SetBranchesStateShimResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) (\type_arg -> Json.Encode.string type_arg) tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.TestAreStatesEqualResponse tagArgument0 -> Json.Encode.object [ ( "TestAreStatesEqualResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.string type_arg) (\type_arg -> Json.Encode.bool type_arg) tagArgument0 ] ) ] jsonDecode_Backend_Generated_StateShimTypes_StateShimResponse = Json.Decode.oneOf - [ Json.Decode.field "ApplyFunctionShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.ApplyFunctionShimResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string (Json.Decode.succeed (\resultLessStateJson producedStateDifferentFromStateArgument -> { resultLessStateJson = resultLessStateJson, producedStateDifferentFromStateArgument = producedStateDifferentFromStateArgument }) - |> jsonDecode_andMap - ( Json.Decode.field "resultLessStateJson" - ( jsonDecode__generic_Maybe Json.Decode.value - ) - ) - |> jsonDecode_andMap - ( Json.Decode.field "producedStateDifferentFromStateArgument" - Json.Decode.bool - )))))) - , Json.Decode.field "EstimateSerializedStateLengthShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.EstimateSerializedStateLengthShimResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string Json.Decode.int)))) - , Json.Decode.field "ListBranchesShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.ListBranchesShimResponse (Json.Decode.index 0 (jsonDecode__generic_List Json.Decode.string)))) - , Json.Decode.field "ListExposedFunctionsShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.ListExposedFunctionsShimResponse (Json.Decode.index 0 (jsonDecode__generic_List (Json.Decode.succeed (\functionName functionDescription -> { functionName = functionName, functionDescription = functionDescription }) - |> jsonDecode_andMap - ( Json.Decode.field "functionName" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "functionDescription" - ( Json.Decode.succeed (\returnType parameters -> { returnType = returnType, parameters = parameters }) - |> jsonDecode_andMap - ( Json.Decode.field "returnType" - ( Json.Decode.succeed (\sourceCodeText containsAppStateType -> { sourceCodeText = sourceCodeText, containsAppStateType = containsAppStateType }) + [ Json.Decode.field "ApplyFunctionShimResponse" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.StateShimTypes.ApplyFunctionShimResponse + (Json.Decode.index 0 + (jsonDecode__generic_Result Json.Decode.string + (Json.Decode.succeed (\resultLessStateJson producedStateDifferentFromStateArgument -> { resultLessStateJson = resultLessStateJson, producedStateDifferentFromStateArgument = producedStateDifferentFromStateArgument }) |> jsonDecode_andMap - ( Json.Decode.field "sourceCodeText" - Json.Decode.string + (Json.Decode.field "resultLessStateJson" + (jsonDecode__generic_Maybe Json.Decode.value) ) |> jsonDecode_andMap - ( Json.Decode.field "containsAppStateType" + (Json.Decode.field "producedStateDifferentFromStateArgument" Json.Decode.bool ) ) ) - |> jsonDecode_andMap - ( Json.Decode.field "parameters" - ( jsonDecode__generic_List (Json.Decode.succeed (\patternSourceCodeText typeSourceCodeText typeIsAppStateType -> { patternSourceCodeText = patternSourceCodeText, typeSourceCodeText = typeSourceCodeText, typeIsAppStateType = typeIsAppStateType }) + ) + ) + ) + , Json.Decode.field "EstimateSerializedStateLengthShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.EstimateSerializedStateLengthShimResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string Json.Decode.int)))) + , Json.Decode.field "ListBranchesShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.ListBranchesShimResponse (Json.Decode.index 0 (jsonDecode__generic_List Json.Decode.string)))) + , Json.Decode.field "ListExposedFunctionsShimResponse" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.StateShimTypes.ListExposedFunctionsShimResponse + (Json.Decode.index 0 + (jsonDecode__generic_List + (Json.Decode.succeed (\functionName functionDescription -> { functionName = functionName, functionDescription = functionDescription }) |> jsonDecode_andMap - ( Json.Decode.field "patternSourceCodeText" + (Json.Decode.field "functionName" Json.Decode.string ) |> jsonDecode_andMap - ( Json.Decode.field "typeSourceCodeText" - Json.Decode.string + (Json.Decode.field "functionDescription" + (Json.Decode.succeed (\returnType parameters -> { returnType = returnType, parameters = parameters }) + |> jsonDecode_andMap + (Json.Decode.field "returnType" + (Json.Decode.succeed (\sourceCodeText containsAppStateType -> { sourceCodeText = sourceCodeText, containsAppStateType = containsAppStateType }) + |> jsonDecode_andMap + (Json.Decode.field "sourceCodeText" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "containsAppStateType" + Json.Decode.bool + ) + ) + ) + |> jsonDecode_andMap + (Json.Decode.field "parameters" + (jsonDecode__generic_List + (Json.Decode.succeed (\patternSourceCodeText typeSourceCodeText typeIsAppStateType -> { patternSourceCodeText = patternSourceCodeText, typeSourceCodeText = typeSourceCodeText, typeIsAppStateType = typeIsAppStateType }) + |> jsonDecode_andMap + (Json.Decode.field "patternSourceCodeText" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "typeSourceCodeText" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "typeIsAppStateType" + Json.Decode.bool + ) + ) + ) + ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "typeIsAppStateType" - Json.Decode.bool - )) ) ) - ) - )))))) - , Json.Decode.field "RemoveBranchesShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.RemoveBranchesShimResponse (Json.Decode.index 0 (Json.Decode.succeed (\removedCount -> { removedCount = removedCount }) - |> jsonDecode_andMap - ( Json.Decode.field "removedCount" - Json.Decode.int - ))))) + ) + ) + ) + , Json.Decode.field "RemoveBranchesShimResponse" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.StateShimTypes.RemoveBranchesShimResponse + (Json.Decode.index 0 + (Json.Decode.succeed (\removedCount -> { removedCount = removedCount }) + |> jsonDecode_andMap + (Json.Decode.field "removedCount" + Json.Decode.int + ) + ) + ) + ) + ) , Json.Decode.field "SerializeStateShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.SerializeStateShimResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string Json.Decode.value)))) , Json.Decode.field "SetBranchesStateShimResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.SetBranchesStateShimResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string Json.Decode.string)))) , Json.Decode.field "TestAreStatesEqualResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.StateShimTypes.TestAreStatesEqualResponse (Json.Decode.index 0 (jsonDecode__generic_Result Json.Decode.string Json.Decode.bool)))) @@ -403,6 +519,7 @@ jsonEncode_Backend_Generated_StateShimTypes_StateSource valueToEncode = case valueToEncode of Backend.Generated.StateShimTypes.BranchStateSource tagArgument0 -> Json.Encode.object [ ( "BranchStateSource", Json.Encode.list identity [ Json.Encode.string tagArgument0 ] ) ] + Backend.Generated.StateShimTypes.JsonStateSource tagArgument0 -> Json.Encode.object [ ( "JsonStateSource", Json.Encode.list identity [ tagArgument0 ] ) ] @@ -417,177 +534,274 @@ jsonDecode_Backend_Generated_StateShimTypes_StateSource = jsonEncode_Backend_Generated_WebServiceShimTypes_BackendEvent valueToEncode = case valueToEncode of Backend.Generated.WebServiceShimTypes.HttpRequestEvent tagArgument0 -> - Json.Encode.object [ ( "HttpRequestEvent", Json.Encode.list identity [ Json.Encode.object - [ ( "httpRequestId" - , Json.Encode.string tagArgument0.httpRequestId - ) - , ( "posixTimeMilli" - , Json.Encode.int tagArgument0.posixTimeMilli - ) - , ( "requestContext" - , Json.Encode.object - [ ( "clientAddress" - , jsonEncode__generic_Maybe (\type_arg -> Json.Encode.string type_arg) tagArgument0.requestContext.clientAddress - ) - ] - ) - , ( "request" - , Json.Encode.object - [ ( "method" - , Json.Encode.string tagArgument0.request.method - ) - , ( "uri" - , Json.Encode.string tagArgument0.request.uri - ) - , ( "bodyAsBase64" - , jsonEncode__generic_Maybe (\type_arg -> Json.Encode.string type_arg) tagArgument0.request.bodyAsBase64 - ) - , ( "headers" - , jsonEncode__generic_List (\type_arg -> Json.Encode.object - [ ( "name" - , Json.Encode.string type_arg.name - ) - , ( "values" - , jsonEncode__generic_List (\type_arg_ -> Json.Encode.string type_arg_) type_arg.values - ) - ]) tagArgument0.request.headers - ) + Json.Encode.object + [ ( "HttpRequestEvent" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "httpRequestId" + , Json.Encode.string tagArgument0.httpRequestId + ) + , ( "posixTimeMilli" + , Json.Encode.int tagArgument0.posixTimeMilli + ) + , ( "requestContext" + , Json.Encode.object + [ ( "clientAddress" + , jsonEncode__generic_Maybe (\type_arg -> Json.Encode.string type_arg) tagArgument0.requestContext.clientAddress + ) + ] + ) + , ( "request" + , Json.Encode.object + [ ( "method" + , Json.Encode.string tagArgument0.request.method + ) + , ( "uri" + , Json.Encode.string tagArgument0.request.uri + ) + , ( "bodyAsBase64" + , jsonEncode__generic_Maybe (\type_arg -> Json.Encode.string type_arg) tagArgument0.request.bodyAsBase64 + ) + , ( "headers" + , jsonEncode__generic_List + (\type_arg -> + Json.Encode.object + [ ( "name" + , Json.Encode.string type_arg.name + ) + , ( "values" + , jsonEncode__generic_List (\type_arg_ -> Json.Encode.string type_arg_) type_arg.values + ) + ] + ) + tagArgument0.request.headers + ) + ] + ) + ] ] ) - ] ] ) ] + ] + Backend.Generated.WebServiceShimTypes.PosixTimeHasArrivedEvent tagArgument0 -> - Json.Encode.object [ ( "PosixTimeHasArrivedEvent", Json.Encode.list identity [ Json.Encode.object - [ ( "posixTimeMilli" - , Json.Encode.int tagArgument0.posixTimeMilli + Json.Encode.object + [ ( "PosixTimeHasArrivedEvent" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "posixTimeMilli" + , Json.Encode.int tagArgument0.posixTimeMilli + ) + ] + ] ) - ] ] ) ] + ] + Backend.Generated.WebServiceShimTypes.TaskCompleteEvent tagArgument0 -> - Json.Encode.object [ ( "TaskCompleteEvent", Json.Encode.list identity [ Json.Encode.object - [ ( "taskId" - , Json.Encode.string tagArgument0.taskId - ) - , ( "taskResult" - , jsonEncode_Backend_Generated_WebServiceShimTypes_TaskResultStructure tagArgument0.taskResult + Json.Encode.object + [ ( "TaskCompleteEvent" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "taskId" + , Json.Encode.string tagArgument0.taskId + ) + , ( "taskResult" + , jsonEncode_Backend_Generated_WebServiceShimTypes_TaskResultStructure tagArgument0.taskResult + ) + ] + ] ) - ] ] ) ] + ] jsonDecode_Backend_Generated_WebServiceShimTypes_BackendEvent = Json.Decode.oneOf - [ Json.Decode.field "HttpRequestEvent" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.HttpRequestEvent (Json.Decode.index 0 (Json.Decode.succeed (\httpRequestId posixTimeMilli requestContext request -> { httpRequestId = httpRequestId, posixTimeMilli = posixTimeMilli, requestContext = requestContext, request = request }) - |> jsonDecode_andMap - ( Json.Decode.field "httpRequestId" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "posixTimeMilli" - Json.Decode.int - ) - |> jsonDecode_andMap - ( Json.Decode.field "requestContext" - ( Json.Decode.succeed (\clientAddress -> { clientAddress = clientAddress }) - |> jsonDecode_andMap - ( Json.Decode.field "clientAddress" - ( jsonDecode__generic_Maybe Json.Decode.string - ) + [ Json.Decode.field "HttpRequestEvent" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.HttpRequestEvent + (Json.Decode.index 0 + (Json.Decode.succeed (\httpRequestId posixTimeMilli requestContext request -> { httpRequestId = httpRequestId, posixTimeMilli = posixTimeMilli, requestContext = requestContext, request = request }) + |> jsonDecode_andMap + (Json.Decode.field "httpRequestId" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "posixTimeMilli" + Json.Decode.int + ) + |> jsonDecode_andMap + (Json.Decode.field "requestContext" + (Json.Decode.succeed (\clientAddress -> { clientAddress = clientAddress }) + |> jsonDecode_andMap + (Json.Decode.field "clientAddress" + (jsonDecode__generic_Maybe Json.Decode.string) + ) + ) + ) + |> jsonDecode_andMap + (Json.Decode.field "request" + (Json.Decode.succeed (\method uri bodyAsBase64 headers -> { method = method, uri = uri, bodyAsBase64 = bodyAsBase64, headers = headers }) + |> jsonDecode_andMap + (Json.Decode.field "method" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "uri" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "bodyAsBase64" + (jsonDecode__generic_Maybe Json.Decode.string) + ) + |> jsonDecode_andMap + (Json.Decode.field "headers" + (jsonDecode__generic_List + (Json.Decode.succeed (\name values -> { name = name, values = values }) + |> jsonDecode_andMap + (Json.Decode.field "name" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "values" + (jsonDecode__generic_List Json.Decode.string) + ) + ) + ) + ) + ) + ) ) - ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "request" - ( Json.Decode.succeed (\method uri bodyAsBase64 headers -> { method = method, uri = uri, bodyAsBase64 = bodyAsBase64, headers = headers }) - |> jsonDecode_andMap - ( Json.Decode.field "method" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "uri" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "bodyAsBase64" - ( jsonDecode__generic_Maybe Json.Decode.string - ) + ) + , Json.Decode.field "PosixTimeHasArrivedEvent" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.PosixTimeHasArrivedEvent + (Json.Decode.index 0 + (Json.Decode.succeed (\posixTimeMilli -> { posixTimeMilli = posixTimeMilli }) + |> jsonDecode_andMap + (Json.Decode.field "posixTimeMilli" + Json.Decode.int + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "headers" - ( jsonDecode__generic_List (Json.Decode.succeed (\name values -> { name = name, values = values }) - |> jsonDecode_andMap - ( Json.Decode.field "name" - Json.Decode.string - ) - |> jsonDecode_andMap - ( Json.Decode.field "values" - ( jsonDecode__generic_List Json.Decode.string - ) - )) - ) + ) + ) + ) + , Json.Decode.field "TaskCompleteEvent" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.TaskCompleteEvent + (Json.Decode.index 0 + (Json.Decode.succeed (\taskId taskResult -> { taskId = taskId, taskResult = taskResult }) + |> jsonDecode_andMap + (Json.Decode.field "taskId" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "taskResult" + jsonDecode_Backend_Generated_WebServiceShimTypes_TaskResultStructure + ) ) - ) - ))))) - , Json.Decode.field "PosixTimeHasArrivedEvent" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.PosixTimeHasArrivedEvent (Json.Decode.index 0 (Json.Decode.succeed (\posixTimeMilli -> { posixTimeMilli = posixTimeMilli }) - |> jsonDecode_andMap - ( Json.Decode.field "posixTimeMilli" - Json.Decode.int - ))))) - , Json.Decode.field "TaskCompleteEvent" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.TaskCompleteEvent (Json.Decode.index 0 (Json.Decode.succeed (\taskId taskResult -> { taskId = taskId, taskResult = taskResult }) - |> jsonDecode_andMap - ( Json.Decode.field "taskId" - Json.Decode.string + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "taskResult" - jsonDecode_Backend_Generated_WebServiceShimTypes_TaskResultStructure - ))))) + ) ] jsonEncode_Backend_Generated_WebServiceShimTypes_Task valueToEncode = case valueToEncode of Backend.Generated.WebServiceShimTypes.CreateVolatileProcess tagArgument0 -> - Json.Encode.object [ ( "CreateVolatileProcess", Json.Encode.list identity [ Json.Encode.object - [ ( "programCode" - , Json.Encode.string tagArgument0.programCode + Json.Encode.object + [ ( "CreateVolatileProcess" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "programCode" + , Json.Encode.string tagArgument0.programCode + ) + ] + ] ) - ] ] ) ] + ] + Backend.Generated.WebServiceShimTypes.RequestToVolatileProcess tagArgument0 -> - Json.Encode.object [ ( "RequestToVolatileProcess", Json.Encode.list identity [ Json.Encode.object - [ ( "processId" - , Json.Encode.string tagArgument0.processId - ) - , ( "request" - , Json.Encode.string tagArgument0.request + Json.Encode.object + [ ( "RequestToVolatileProcess" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "processId" + , Json.Encode.string tagArgument0.processId + ) + , ( "request" + , Json.Encode.string tagArgument0.request + ) + ] + ] ) - ] ] ) ] + ] + Backend.Generated.WebServiceShimTypes.TerminateVolatileProcess tagArgument0 -> - Json.Encode.object [ ( "TerminateVolatileProcess", Json.Encode.list identity [ Json.Encode.object - [ ( "processId" - , Json.Encode.string tagArgument0.processId + Json.Encode.object + [ ( "TerminateVolatileProcess" + , Json.Encode.list identity + [ Json.Encode.object + [ ( "processId" + , Json.Encode.string tagArgument0.processId + ) + ] + ] ) - ] ] ) ] + ] jsonDecode_Backend_Generated_WebServiceShimTypes_Task = Json.Decode.oneOf - [ Json.Decode.field "CreateVolatileProcess" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.CreateVolatileProcess (Json.Decode.index 0 (Json.Decode.succeed (\programCode -> { programCode = programCode }) - |> jsonDecode_andMap - ( Json.Decode.field "programCode" - Json.Decode.string - ))))) - , Json.Decode.field "RequestToVolatileProcess" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.RequestToVolatileProcess (Json.Decode.index 0 (Json.Decode.succeed (\processId request -> { processId = processId, request = request }) - |> jsonDecode_andMap - ( Json.Decode.field "processId" - Json.Decode.string + [ Json.Decode.field "CreateVolatileProcess" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.CreateVolatileProcess + (Json.Decode.index 0 + (Json.Decode.succeed (\programCode -> { programCode = programCode }) + |> jsonDecode_andMap + (Json.Decode.field "programCode" + Json.Decode.string + ) + ) + ) + ) + ) + , Json.Decode.field "RequestToVolatileProcess" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.RequestToVolatileProcess + (Json.Decode.index 0 + (Json.Decode.succeed (\processId request -> { processId = processId, request = request }) + |> jsonDecode_andMap + (Json.Decode.field "processId" + Json.Decode.string + ) + |> jsonDecode_andMap + (Json.Decode.field "request" + Json.Decode.string + ) + ) + ) + ) + ) + , Json.Decode.field "TerminateVolatileProcess" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.TerminateVolatileProcess + (Json.Decode.index 0 + (Json.Decode.succeed (\processId -> { processId = processId }) + |> jsonDecode_andMap + (Json.Decode.field "processId" + Json.Decode.string + ) + ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "request" - Json.Decode.string - ))))) - , Json.Decode.field "TerminateVolatileProcess" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.TerminateVolatileProcess (Json.Decode.index 0 (Json.Decode.succeed (\processId -> { processId = processId }) - |> jsonDecode_andMap - ( Json.Decode.field "processId" - Json.Decode.string - ))))) + ) ] @@ -595,57 +809,104 @@ jsonEncode_Backend_Generated_WebServiceShimTypes_TaskResultStructure valueToEnco case valueToEncode of Backend.Generated.WebServiceShimTypes.CompleteWithoutResult -> Json.Encode.object [ ( "CompleteWithoutResult", Json.Encode.list identity [] ) ] + Backend.Generated.WebServiceShimTypes.CreateVolatileProcessResponse tagArgument0 -> - Json.Encode.object [ ( "CreateVolatileProcessResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> Json.Encode.object - [ ( "exceptionToString" - , Json.Encode.string type_arg.exceptionToString - ) - ]) (\type_arg -> Json.Encode.object - [ ( "processId" - , Json.Encode.string type_arg.processId + Json.Encode.object + [ ( "CreateVolatileProcessResponse" + , Json.Encode.list identity + [ jsonEncode__generic_Result + (\type_arg -> + Json.Encode.object + [ ( "exceptionToString" + , Json.Encode.string type_arg.exceptionToString + ) + ] + ) + (\type_arg -> + Json.Encode.object + [ ( "processId" + , Json.Encode.string type_arg.processId + ) + ] + ) + tagArgument0 + ] ) - ]) tagArgument0 ] ) ] + ] + Backend.Generated.WebServiceShimTypes.RequestToVolatileProcessResponse tagArgument0 -> - Json.Encode.object [ ( "RequestToVolatileProcessResponse", Json.Encode.list identity [ jsonEncode__generic_Result (\type_arg -> jsonEncode_Platform_WebService_RequestToVolatileProcessError type_arg) (\type_arg -> Json.Encode.object - [ ( "exceptionToString" - , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.exceptionToString - ) - , ( "returnValueToString" - , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.returnValueToString - ) - , ( "durationInMilliseconds" - , Json.Encode.int type_arg.durationInMilliseconds + Json.Encode.object + [ ( "RequestToVolatileProcessResponse" + , Json.Encode.list identity + [ jsonEncode__generic_Result (\type_arg -> jsonEncode_Platform_WebService_RequestToVolatileProcessError type_arg) + (\type_arg -> + Json.Encode.object + [ ( "exceptionToString" + , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.exceptionToString + ) + , ( "returnValueToString" + , jsonEncode__generic_Maybe (\type_arg_ -> Json.Encode.string type_arg_) type_arg.returnValueToString + ) + , ( "durationInMilliseconds" + , Json.Encode.int type_arg.durationInMilliseconds + ) + ] + ) + tagArgument0 + ] ) - ]) tagArgument0 ] ) ] + ] jsonDecode_Backend_Generated_WebServiceShimTypes_TaskResultStructure = Json.Decode.oneOf [ Json.Decode.field "CompleteWithoutResult" (jsonDecodeSucceedWhenNotNull Backend.Generated.WebServiceShimTypes.CompleteWithoutResult) - , Json.Decode.field "CreateVolatileProcessResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.CreateVolatileProcessResponse (Json.Decode.index 0 (jsonDecode__generic_Result (Json.Decode.succeed (\exceptionToString -> { exceptionToString = exceptionToString }) - |> jsonDecode_andMap - ( Json.Decode.field "exceptionToString" - Json.Decode.string - )) (Json.Decode.succeed (\processId -> { processId = processId }) - |> jsonDecode_andMap - ( Json.Decode.field "processId" - Json.Decode.string - )))))) - , Json.Decode.field "RequestToVolatileProcessResponse" (Json.Decode.lazy (\_ -> Json.Decode.map Backend.Generated.WebServiceShimTypes.RequestToVolatileProcessResponse (Json.Decode.index 0 (jsonDecode__generic_Result jsonDecode_Platform_WebService_RequestToVolatileProcessError (Json.Decode.succeed (\exceptionToString returnValueToString durationInMilliseconds -> { exceptionToString = exceptionToString, returnValueToString = returnValueToString, durationInMilliseconds = durationInMilliseconds }) - |> jsonDecode_andMap - ( Json.Decode.field "exceptionToString" - ( jsonDecode__generic_Maybe Json.Decode.string - ) + , Json.Decode.field "CreateVolatileProcessResponse" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.CreateVolatileProcessResponse + (Json.Decode.index 0 + (jsonDecode__generic_Result + (Json.Decode.succeed (\exceptionToString -> { exceptionToString = exceptionToString }) + |> jsonDecode_andMap + (Json.Decode.field "exceptionToString" + Json.Decode.string + ) + ) + (Json.Decode.succeed (\processId -> { processId = processId }) + |> jsonDecode_andMap + (Json.Decode.field "processId" + Json.Decode.string + ) + ) + ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "returnValueToString" - ( jsonDecode__generic_Maybe Json.Decode.string - ) + ) + , Json.Decode.field "RequestToVolatileProcessResponse" + (Json.Decode.lazy + (\_ -> + Json.Decode.map Backend.Generated.WebServiceShimTypes.RequestToVolatileProcessResponse + (Json.Decode.index 0 + (jsonDecode__generic_Result jsonDecode_Platform_WebService_RequestToVolatileProcessError + (Json.Decode.succeed (\exceptionToString returnValueToString durationInMilliseconds -> { exceptionToString = exceptionToString, returnValueToString = returnValueToString, durationInMilliseconds = durationInMilliseconds }) + |> jsonDecode_andMap + (Json.Decode.field "exceptionToString" + (jsonDecode__generic_Maybe Json.Decode.string) + ) + |> jsonDecode_andMap + (Json.Decode.field "returnValueToString" + (jsonDecode__generic_Maybe Json.Decode.string) + ) + |> jsonDecode_andMap + (Json.Decode.field "durationInMilliseconds" + Json.Decode.int + ) + ) + ) + ) ) - |> jsonDecode_andMap - ( Json.Decode.field "durationInMilliseconds" - Json.Decode.int - )))))) + ) ] @@ -673,22 +934,26 @@ jsonEncode__generic_Maybe encodeJust valueToEncode = jsonDecode__generic_Maybe decoder = Json.Decode.oneOf [ Json.Decode.field "Nothing" (Json.Decode.succeed Nothing) - , Json.Decode.field "Just" ((Json.Decode.index 0 decoder) |> Json.Decode.map Just) + , Json.Decode.field "Just" (Json.Decode.index 0 decoder |> Json.Decode.map Just) , Json.Decode.field "Just" (decoder |> Json.Decode.map Just) -- 2020-03-07 Support easy migration of apps: Support decode from older JSON format for now. , Json.Decode.null Nothing -- Temporary backwardscompatibility: Map 'null' to Nothing ] -jsonEncode__generic_List = Json.Encode.list +jsonEncode__generic_List = + Json.Encode.list -jsonDecode__generic_List = Json.Decode.list +jsonDecode__generic_List = + Json.Decode.list -jsonEncode__generic_Array = Json.Encode.array +jsonEncode__generic_Array = + Json.Encode.array -jsonDecode__generic_Array = Json.Decode.array +jsonDecode__generic_Array = + Json.Decode.array jsonEncode__generic_Set encoder = @@ -704,8 +969,8 @@ jsonEncode__generic_Dict encodeKey encodeValue = jsonDecode__generic_Dict decodeKey decodeValue = - (Json.Decode.list (jsonDecode__tuple_2 decodeKey decodeValue)) - |> Json.Decode.map Dict.fromList + Json.Decode.list (jsonDecode__tuple_2 decodeKey decodeValue) + |> Json.Decode.map Dict.fromList jsonEncode__generic_Result encodeErr encodeOk valueToEncode = @@ -779,4 +1044,4 @@ jsonDecodeSucceedWhenNotNull valueIfNotNull = else Json.Decode.succeed valueIfNotNull - ) \ No newline at end of file + )