Link generatedFunctionsForTypes

pine-vm · Aug 13, 2023 · 13c2b56 · 13c2b56
1 parent d85fff6
commit 13c2b56
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/implement/elm-time/ElmTime/compile-elm-program/src/CompileElmApp.elm b/implement/elm-time/ElmTime/compile-elm-program/src/CompileElmApp.elm
@@ -865,6 +865,31 @@ buildJsonConverterFunctionsForMultipleRoots :
         }
 buildJsonConverterFunctionsForMultipleRoots typeAnnotationsBeforeDeduplicating choiceTypes =
     let
+        generatedFunctionsForTypes =
+            generateFunctionsForMultipleTypes
+                { generateFromTypeAnnotation =
+                    buildJsonConverterFunctionsForTypeAnnotation
+                        >> (\functionsForType ->
+                                [ functionsForType.encodeFunction, functionsForType.decodeFunction ]
+                           )
+                        >> List.map (\function -> { functionName = function.name, functionText = function.text })
+                , generateFromChoiceType =
+                    (\( choiceTypeName, choiceType ) ->
+                        jsonConverterFunctionFromChoiceType
+                            { choiceTypeName = choiceTypeName
+                            , encodeValueExpression = jsonEncodeParamName
+                            , typeArgLocalName = "type_arg"
+                            }
+                            choiceType
+                    )
+                        >> (\functionsForType ->
+                                [ functionsForType.encodeFunction, functionsForType.decodeFunction ]
+                           )
+                        >> List.map (\function -> { functionName = function.name, functionText = function.text })
+                }
+                typeAnnotationsBeforeDeduplicating
+                choiceTypes
+
         modulesToImportForChoiceTypes =
             choiceTypes
                 |> Dict.keys