From 59b0467ea590a4381984b046daafdcf3a109e779 Mon Sep 17 00:00:00 2001 From: Leonardo Taglialegne Date: Wed, 8 Oct 2025 13:52:18 +0200 Subject: [PATCH] Server names are unsafe strings --- src/OpenApi/Generate.elm | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/OpenApi/Generate.elm b/src/OpenApi/Generate.elm index 004cd6f..0cb115d 100644 --- a/src/OpenApi/Generate.elm +++ b/src/OpenApi/Generate.elm @@ -237,13 +237,18 @@ serverDeclarations server = list |> List.map (\{ name, url, description } -> + let + safeName : String + safeName = + Common.toValueName name + in { moduleName = Common.Servers - , name = name + , name = safeName , declaration = url |> stripTrailingSlash |> Elm.string - |> Elm.declaration name + |> Elm.declaration safeName |> (case description of Nothing -> identity @@ -1774,7 +1779,7 @@ toConfigParamAnnotation options = type ServerInfo = SingleServer String - | MultipleServers (List { name : String, url : String, description : Maybe String }) + | MultipleServers (List { name : Common.UnsafeName, url : String, description : Maybe String }) serverInfo : OpenApi.Config.Server -> CliMonad ServerInfo @@ -1811,7 +1816,7 @@ serverInfo server = Just d -> d in - { name = name + { name = Common.UnsafeName name , url = OpenApi.Server.url value , description = description } @@ -1823,7 +1828,7 @@ serverInfo server = |> Dict.toList |> List.map (\( name, url ) -> - { name = name + { name = Common.UnsafeName name , url = url , description = Nothing }