Remove some superflouos whitespace from generated code

2024-11-23 02:56:59 +03:00 · 2022-06-12 15:04:08 +02:00 · 2022-06-12 15:04:08 +02:00 · 24e28b6c2d
commit 24e28b6c2d
parent 51c5a0a8d4
13 changed files with 37 additions and 127 deletions
--- a/src/Tie.hs
+++ b/src/Tie.hs
@ -191,15 +191,14 @@ generate write packageName apiName extraPackages inputFile = do
        codegenSchema name' normedType
      write path $
        vsep $
-          [ header,
-            mempty,
+          intersperse mempty $
+            concat
+              [ [ header,
                  externalDependencyCode,
-            mempty,
-            schemaDependencyCode,
-            mempty,
-            vsep (intersperse mempty codeForInlineDependencies),
-            mempty,
-            output
+                  schemaDependencyCode
+                ],
+                codeForInlineDependencies,
+                [output]
              ]

  -- For each Operation, generate data types for the responses.
@ -215,16 +214,15 @@ generate write packageName apiName extraPackages inputFile = do
      traverse (uncurry codegenSchema) inlineDefinitions
    responsesCode <- codegenResponses resolver operation
    write path $
-      vsep
-        [ header,
-          mempty,
+      vsep $
+        intersperse mempty $
+          concat
+            [ [ header,
                importsCode,
-          mempty,
-          codegenExtraResponseModuleDependencies apiName,
-          mempty,
-          vsep codeForInlineDefinitions,
-          mempty,
-          responsesCode
+                codegenExtraResponseModuleDependencies apiName
+              ],
+              codeForInlineDefinitions,
+              [responsesCode]
            ]

  -- Generate auxiliary definitions in Response.hs
@ -284,17 +282,14 @@ generate write packageName apiName extraPackages inputFile = do
              operations

  write path $
-    vsep
+    vsep $
+      intersperse
+        mempty
        [ header,
-        mempty,
          codegenExtraApiModuleDependencies apiName,
-        mempty,
          externalDependencyCode,
-        mempty,
          schemaDependencyCode,
-        mempty,
          responseDependencyCode,
-        mempty,
          operationsCode
        ]

--- a/src/Tie/Codegen/Schema.hs
+++ b/src/Tie/Codegen/Schema.hs
@ -221,7 +221,7 @@ codegenOneOfType getDiscriminator typName variants = do
                  )
            )

-  pure (PP.vsep [decl, mempty, toJson, mempty, fromJson])
+  pure (PP.vsep $ intersperse mempty [decl, toJson, fromJson])

 codegenObjectType :: Monad m => Name -> ObjectType (Named Type) -> m (Doc ann)
 codegenObjectType typName ObjectType {..}
@ -324,7 +324,7 @@ codegenObjectType typName ObjectType {..} = do
                        )
                  )
            )
-   in pure (PP.vsep [decl, mempty, toJson, mempty, fromJson])
+   in pure (PP.vsep $ intersperse mempty [decl, toJson, fromJson])

 codegenRequiredOptionalFieldType :: Bool -> Doc ann -> Doc ann
 codegenRequiredOptionalFieldType True doc = doc
@ -474,4 +474,8 @@ codegenEnumeration typName alternatives _includeNull =
                        )
                  )
            )
-   in PP.vsep [dataDecl, mempty, toJSON, mempty, fromJSON, mempty, toHttpApiData, mempty, fromHttpApiData]
+   in PP.vsep
+        ( intersperse
+            mempty
+            [dataDecl, toJSON, fromJSON, toHttpApiData, fromHttpApiData]
+        )
--- a/test/golden/csv.yaml.out
+++ b/test/golden/csv.yaml.out
@ -344,8 +344,6 @@ import qualified Web.HttpApiData

 import Test.Response

-
-
 data TestResponse
    = TestResponse200 Network.Wai.StreamingBody

@ -394,8 +392,6 @@ import qualified Web.HttpApiData

 import Test.Response

-
-
 data Test2Response
    = Test2Response200 Data.Aeson.Value
    deriving (Show)
--- a/test/golden/datetime.yaml.out
+++ b/test/golden/datetime.yaml.out
@ -330,8 +330,6 @@ import Test.Schemas.Test

 import Test.Response

-
-
 data TestResponse
    = TestResponse200 Test
    deriving (Show)
@ -378,8 +376,6 @@ import qualified Web.HttpApiData



-
-
 data Test = Test
    {
        dateProp :: (Data.Maybe.Maybe (Data.Time.Day)),
--- a/test/golden/enum-bug.yaml.out
+++ b/test/golden/enum-bug.yaml.out
@ -333,8 +333,6 @@ import Test.Schemas.Package

 import Test.Response

-
-
 data DummyResponse
    = DummyResponse200 Package
    deriving (Show)
@ -382,8 +380,6 @@ import qualified Web.HttpApiData
 import Test.Schemas.PackageBase
 import Test.Schemas.PackageType

-
-
 data DockerPackage = DockerPackage
    {
        backendRegistry :: (Data.Maybe.Maybe (Data.Text.Text)),
@ -470,8 +466,6 @@ import qualified Web.HttpApiData
 import Test.Schemas.PackageBase
 import Test.Schemas.PackageType

-
-
 data FilePackage = FilePackage
    {
        id :: Data.Text.Text,
@ -558,8 +552,6 @@ import qualified Web.HttpApiData
 import Test.Schemas.DockerPackage
 import Test.Schemas.FilePackage

-
-
 data Package
    = PackageFilePackage FilePackage
    | PackageDockerPackage DockerPackage
@ -613,8 +605,6 @@ import qualified Web.HttpApiData

 import Test.Schemas.PackageType

-
-
 data PackageBase = PackageBase
    {
        id :: Data.Text.Text,
@ -692,8 +682,6 @@ import qualified Web.HttpApiData



-
-
 data PackageType
    = PackageTypeDocker
    | PackageTypeFile
--- a/test/golden/enum.yaml.out
+++ b/test/golden/enum.yaml.out
@ -397,8 +397,6 @@ import Test.Schemas.Package

 import Test.Response

-
-
 data ListPackagesResponse
    = ListPackagesResponse200 Package
    deriving (Show)
@ -609,8 +607,6 @@ import Test.Schemas.Order

 import Test.Response

-
-
 data ListPackages4Response
    = ListPackages4Response201
    deriving (Show)
@ -657,8 +653,6 @@ import Test.Schemas.InsightsTimeRange

 import Test.Response

-
-
 data ListPackages5Response
    = ListPackages5Response201
    deriving (Show)
@ -705,8 +699,6 @@ import qualified Web.HttpApiData



-
-
 data InsightsTimeRange
    = InsightsTimeRangeLastWeek
    | InsightsTimeRangeLastMonth
@ -782,8 +774,6 @@ import qualified Web.HttpApiData



-
-
 data Order
    = OrderAsc
    | OrderDesc
@ -853,8 +843,6 @@ import qualified Web.HttpApiData



-
-
 data Package
    = PackageDOCKER
    | PackagePYTHON
--- a/test/golden/haskell-ext.yaml.out
+++ b/test/golden/haskell-ext.yaml.out
@ -334,8 +334,6 @@ import Test.Schemas.Test

 import Test.Response

-
-
 data TestResponse
    = TestResponse200 Test
    deriving (Show)
@ -382,8 +380,6 @@ import qualified Scarf.Hashids



-
-
 newtype Test = Test
    {
        test1 :: (Data.Maybe.Maybe (Scarf.Hashids.Hashid Int32))
--- a/test/golden/headers.yaml.out
+++ b/test/golden/headers.yaml.out
@ -361,8 +361,6 @@ import Test.Schemas.Test

 import Test.Response

-
-
 data TestResponse
    = TestResponse200 Test
    deriving (Show)
@ -409,8 +407,6 @@ import qualified Web.HttpApiData

 import Test.Response

-
-
 data Test1Response
    = Test1Response201 (Data.Maybe.Maybe (Data.Text.Text))
    deriving (Show)
@ -457,8 +453,6 @@ import qualified Web.HttpApiData

 import Test.Response

-
-
 data Test2Response
    = Test2Response201 Data.Text.Text
    deriving (Show)
@ -505,8 +499,6 @@ import qualified Web.HttpApiData



-
-
 data Test = Test
    {
        dateProp :: (Data.Maybe.Maybe (Data.Time.Day)),
--- a/test/golden/lists.yaml.out
+++ b/test/golden/lists.yaml.out
@ -360,8 +360,6 @@ import Test.Schemas.Packages

 import Test.Response

-
-
 data ListPackagesResponse
    = ListPackagesResponse200 Packages
    deriving (Show)
@ -408,8 +406,6 @@ import Test.Schemas.Package

 import Test.Response

-
-
 data ListPackages2Response
    = ListPackages2Response200 [ Package ]
    deriving (Show)
@ -456,8 +452,6 @@ import Test.Schemas.Inline

 import Test.Response

-
-
 data ListPackages3Response
    = ListPackages3Response200 [ Inline ]
    deriving (Show)
@ -563,8 +557,6 @@ import qualified Web.HttpApiData



-
-
 newtype Package = Package
    {
        name :: (Data.Maybe.Maybe (Data.Text.Text))
@ -622,8 +614,6 @@ import qualified Web.HttpApiData

 import Test.Schemas.Package

-
-
 type Packages = [ Package ]
 ---------------------
 test.cabal
--- a/test/golden/numbers.yaml.out
+++ b/test/golden/numbers.yaml.out
@ -330,8 +330,6 @@ import Test.Schemas.Test

 import Test.Response

-
-
 data TestResponse
    = TestResponse200 Test
    deriving (Show)
@ -378,8 +376,6 @@ import qualified Web.HttpApiData



-
-
 data Test = Test
    {
        a :: (Data.Maybe.Maybe (GHC.Int.Int32)),
--- a/test/golden/oneof.yaml.out
+++ b/test/golden/oneof.yaml.out
@ -360,8 +360,6 @@ import Test.Schemas.PetOrPackage

 import Test.Response

-
-
 data ListPackagesResponse
    = ListPackagesResponse200 PetOrPackage
    deriving (Show)
@ -408,8 +406,6 @@ import Test.Schemas.Inline

 import Test.Response

-
-
 data ListPackages2Response
    = ListPackages2Response200 Inline
    deriving (Show)
@ -456,8 +452,6 @@ import Test.Schemas.Inline2

 import Test.Response

-
-
 data ListPackages3Response
    = ListPackages3Response200 Inline2
    deriving (Show)
@ -677,8 +671,6 @@ import qualified Web.HttpApiData



-
-
 newtype Package = Package
    {
        type' :: (Data.Maybe.Maybe (Data.Text.Text))
@ -736,8 +728,6 @@ import qualified Web.HttpApiData



-
-
 newtype Pet = Pet
    {
        type' :: (Data.Maybe.Maybe (Data.Text.Text))
@ -796,8 +786,6 @@ import qualified Web.HttpApiData
 import Test.Schemas.Package
 import Test.Schemas.Pet

-
-
 data PetOrPackage
    = PetOrPackagePet Pet
    | PetOrPackagePackage Package
--- a/test/golden/petstore.yaml.out
+++ b/test/golden/petstore.yaml.out
@ -361,8 +361,6 @@ import Test.Schemas.Error

 import Test.Response

-
-
 data CreatePetsResponse
    = CreatePetsResponse201
    | CreatePetsDefaultResponse Network.HTTP.Types.Status Error
@ -413,8 +411,6 @@ import Test.Schemas.Pets

 import Test.Response

-
-
 data ListPetsResponse
    = ListPetsResponse200 Pets (Data.Maybe.Maybe (Data.Text.Text))
    | ListPetsDefaultResponse Network.HTTP.Types.Status Error
@ -465,8 +461,6 @@ import Test.Schemas.Pet

 import Test.Response

-
-
 data ShowPetByIdResponse
    = ShowPetByIdResponse200 Pet
    | ShowPetByIdDefaultResponse Network.HTTP.Types.Status Error
@ -516,8 +510,6 @@ import qualified Web.HttpApiData



-
-
 data Error = Error
    {
        code :: GHC.Int.Int32,
@ -579,8 +571,6 @@ import qualified Web.HttpApiData



-
-
 data Pet = Pet
    {
        id :: GHC.Int.Int64,
@ -646,8 +636,6 @@ import qualified Web.HttpApiData

 import Test.Schemas.Pet

-
-
 type Pets = [ Pet ]
 ---------------------
 test.cabal
--- a/test/golden/test1.yaml.out
+++ b/test/golden/test1.yaml.out
@ -384,6 +384,7 @@ instance Data.Aeson.FromJSON CreateUserRequestBody where
    parseJSON = Data.Aeson.withObject "CreateUserRequestBody" $ \o ->
        CreateUserRequestBody
            <$> o Data.Aeson..:? "nise"
+
 newtype CreateUserResponseBody200 = CreateUserResponseBody200
    {
        name :: (Data.Maybe.Maybe (Data.Text.Text))
@ -451,8 +452,6 @@ import Test.Schemas.Vehicle

 import Test.Response

-
-
 data GetUserResponse
    = GetUserResponse200 Vehicle
    | GetUserResponse404
@ -502,8 +501,6 @@ import qualified Web.HttpApiData

 import Test.Schemas.Vehicle

-
-
 data Car = Car
    {
        has4WheelDrive :: (Data.Maybe.Maybe (GHC.Types.Bool)),
@ -821,8 +818,6 @@ import qualified Web.HttpApiData
 import Test.Schemas.Car
 import Test.Schemas.Vehicle

-
-
 data Plane = Plane
    {
        car :: (Data.Maybe.Maybe (Car)),
@ -904,8 +899,6 @@ import qualified Web.HttpApiData



-
-
 data Vehicle = Vehicle
    {
        id :: GHC.Int.Int,