Improve some type annotations that are getting referenced incorrectly without the help of Elm.withType (see https://github.com/mdgriffith/elm-codegen/issues/48).

2024-12-23 20:03:31 +03:00 · 2022-09-13 08:42:12 -07:00 · 2022-09-13 08:42:12 -07:00 · 90ae03c271
commit 90ae03c271
parent ef9b664cb3
1 changed files with 8 additions and 0 deletions
--- a/codegen/Generate.elm
+++ b/codegen/Generate.elm
@ -225,6 +225,7 @@ file templates =
                                )
                            )
                        )
+                        |> Elm.withType (Elm.Annotation.named [ "Path" ] "Path")
                )
            )
            |> expose
@ -235,6 +236,13 @@ file templates =
                (\route ->
                    Gen.Server.Response.call_.temporaryRedirect
                        (toString.call route)
+                        |> Elm.withType
+                            (Elm.Annotation.namedWith [ "Server", "Response" ]
+                                "Response"
+                                [ Elm.Annotation.var "data"
+                                , Elm.Annotation.var "error"
+                                ]
+                            )
                )
            )
            |> expose