Deduplicate type alias

Author: miniBill

cli/src/Cli.elm

@@ -919,7 +919,7 @@ yamlToJsonValueDecoder =
 
 
 generateFilesFromOpenApiSpecs :
-    List ( OpenApi.Generate.Config, OpenApi.OpenApi )
+    List ( OpenApi.Config.Generate, OpenApi.OpenApi )
     ->
         BackendTask.BackendTask
             FatalError.FatalError

src/OpenApi/Config.elm

@@ -5,7 +5,7 @@ module OpenApi.Config exposing
     , withOutputModuleName, withOverrides, withServer, withWriteMergedTo
     , autoConvertSwagger, inputs, outputDirectory, swaggerConversionCommand, swaggerConversionUrl
     , oasPath, overrides, writeMergedTo
-    , toGenerationConfig, pathToString
+    , toGenerationConfig, Generate, pathToString
     , defaultFormats
     )
 
@@ -36,7 +36,7 @@ module OpenApi.Config exposing
 
 # Output
 
-@docs toGenerationConfig, pathToString
+@docs toGenerationConfig, Generate, pathToString
 
 
 # Internal
@@ -553,19 +553,24 @@ overrides (Input input) =
 ------------
 
 
+{-| -}
+type alias Generate =
+    { namespace : List String
+    , generateTodos : Bool
+    , effectTypes : List EffectType
+    , server : Server
+    , formats : List Format
+    }
+
+
 {-| -}
 toGenerationConfig :
     List { format : String, basicType : Common.BasicType }
     -> Config
     -> List ( Input, OpenApi.OpenApi )
     ->
         List
-            ( { namespace : List String
-              , generateTodos : Bool
-              , effectTypes : List EffectType
-              , server : Server
-              , formats : List Format
-              }
+            ( Generate
             , OpenApi.OpenApi
             )
 toGenerationConfig formatsInput (Config config) augmentedInputs =

src/OpenApi/Generate.elm

@@ -1,8 +1,8 @@
-module OpenApi.Generate exposing (Config, ContentSchema(..), Message, Path, Mime, files)
+module OpenApi.Generate exposing (ContentSchema(..), Message, Path, Mime, files)
 
 {-|
 
-@docs Config, ContentSchema, Message, Path, Mime, files
+@docs ContentSchema, Message, Path, Mime, files
 
 -}
 
@@ -100,19 +100,9 @@ type alias PerPackage a =
     }
 
 
-{-| -}
-type alias Config =
-    { namespace : List String
-    , generateTodos : Bool
-    , effectTypes : List OpenApi.Config.EffectType
-    , server : OpenApi.Config.Server
-    , formats : List OpenApi.Config.Format
-    }
-
-
 {-| -}
 files :
-    Config
+    OpenApi.Config.Generate
     -> OpenApi.OpenApi
     ->
         Result