From 533b983562d436026c6821cd4a44a368bd7670e9 Mon Sep 17 00:00:00 2001 From: Leonardo Taglialegne Date: Sat, 16 May 2026 23:40:36 +0200 Subject: [PATCH 1/3] Fix Expect annotation for dillonkearns/elm-pages --- src/OpenApi/Generate.elm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/OpenApi/Generate.elm b/src/OpenApi/Generate.elm index 7b17928..c2157f9 100644 --- a/src/OpenApi/Generate.elm +++ b/src/OpenApi/Generate.elm @@ -1159,7 +1159,7 @@ dillonkearnsElmPagesBackendTask ({ toMsg, method, functionName } as operationUti , ( "timeoutInMs", Elm.Annotation.maybe Elm.Annotation.int ) ] ) - (Gen.BackendTask.Http.annotation_.expect (Elm.Annotation.var "a")) + (Gen.BackendTask.Http.annotation_.expect successAnnotation) ) , specificExpect = specificExpect } From ce94a22d5b5a290ddb4b5d0755fea85581de23f5 Mon Sep 17 00:00:00 2001 From: Leonardo Taglialegne Date: Sat, 16 May 2026 23:43:25 +0200 Subject: [PATCH 2/3] Fix function names for dillonkearns/elm-pages.taskrecord --- src/OpenApi/Generate.elm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/OpenApi/Generate.elm b/src/OpenApi/Generate.elm index c2157f9..68931c4 100644 --- a/src/OpenApi/Generate.elm +++ b/src/OpenApi/Generate.elm @@ -1175,7 +1175,7 @@ dillonkearnsElmPagesBackendTask ({ toMsg, method, functionName } as operationUti ) , ( OpenApi.Config.DillonkearnsElmPagesTaskRecord , \{ taskArg, recordAnnotation, specificExpect } -> - ( functionName + ( functionName ++ "Record" , Elm.fn (Elm.Arg.var "config") (\config -> Elm.tuple (taskArg config) (specificExpect <| toMsg config)) From 72a6f5978e861306c6f7e41775e6af3a2820d521 Mon Sep 17 00:00:00 2001 From: Leonardo Taglialegne Date: Sat, 16 May 2026 23:43:45 +0200 Subject: [PATCH 3/3] Fix namespace for dillonkearns/elm-pages.taskrecord --- src/OpenApi/Config.elm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/OpenApi/Config.elm b/src/OpenApi/Config.elm index 19f0ce2..76b58b3 100644 --- a/src/OpenApi/Config.elm +++ b/src/OpenApi/Config.elm @@ -156,7 +156,7 @@ effectTypeToPackage effectType = Common.ElmHttp DillonkearnsElmPagesTaskRecord -> - Common.ElmHttp + Common.DillonkearnsElmPages DillonkearnsElmPagesTask -> Common.DillonkearnsElmPages