diff --git a/src/Tie/Codegen/Imports.hs b/src/Tie/Codegen/Imports.hs index 813f4d2..7a76181 100644 --- a/src/Tie/Codegen/Imports.hs +++ b/src/Tie/Codegen/Imports.hs @@ -26,137 +26,55 @@ import Tie.Name codegenModuleHeader :: Text -> Doc ann codegenModuleHeader moduleName = - "{-#" - <+> "LANGUAGE" - <+> "BangPatterns" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "DataKinds" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "DuplicateRecordFields" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "OverloadedStrings" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "ScopedTypeVariables" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "RankNTypes" - <+> "#-}" - <> PP.line - <> "{-#" - <+> "LANGUAGE" - <+> "RecordWildCards" - <+> "#-}" - <> PP.line - <> "module" - <+> PP.pretty moduleName - <+> "where" - <> PP.line - <> PP.line - <> "import" - <+> "qualified" - <+> "Control.Applicative" - <> PP.line - <> "import" - <+> "qualified" - <+> "Control.Exception" - <> PP.line - <> "import" - <+> "qualified" - <+> "Control.Monad" - <> PP.line - <> "import" - <+> "qualified" - <+> "Control.Monad.IO.Class" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Aeson" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Aeson.Encoding" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Aeson.Types" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Attoparsec.ByteString" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.ByteString" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.List" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.List.NonEmpty" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Map" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Maybe" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Text" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Time" - <> PP.line - <> "import" - <+> "qualified" - <+> "Data.Text.Encoding" - <> PP.line - <> "import" - <+> "qualified" - <+> "GHC.Float" - <> PP.line - <> "import" - <+> "qualified" - <+> "GHC.Int" - <> PP.line - <> "import" - <+> "qualified" - <+> "GHC.Records" - <> PP.line - <> "import" - <+> "qualified" - <+> "GHC.Types" - <> PP.line - <> "import" - <+> "qualified" - <+> "Network.HTTP.Types" - <> PP.line - <> "import" - <+> "qualified" - <+> "Network.Wai" - <> PP.line - <> "import" - <+> "qualified" - <+> "Web.HttpApiData" + let languageExtensions :: [Text] + languageExtensions = + sort + [ "BangPatterns", + "DataKinds", + "DuplicateRecordFields", + "OverloadedStrings", + "ScopedTypeVariables", + "RankNTypes", + "RecordWildCards" + ] + + imports :: [Text] + imports = + sort + [ "Control.Applicative", + "Control.Exception", + "Control.Monad", + "Control.Monad.IO.Class", + "Data.Aeson", + "Data.Aeson.Types", + "Data.Aeson.Encoding", + "Data.Attoparsec.ByteString", + "Data.ByteString", + "Data.List", + "Data.List.NonEmpty", + "Data.Map", + "Data.Maybe", + "Data.Text", + "Data.Time", + "Data.Text.Encoding", + "GHC.Float", + "GHC.Int", + "GHC.Records", + "GHC.Types", + "Network.HTTP.Types", + "Network.Wai", + "Web.HttpApiData" + ] + in PP.vcat $ + ( map + (\extension -> "{-#" <+> "LANGUAGE" <+> PP.pretty extension <+> "#-}") + languageExtensions + ) + ++ ["module" <+> PP.pretty moduleName <+> "where", ""] + ++ ( map + (\import_ -> "import" <+> "qualified" <+> PP.pretty import_) + imports + ) codegenExtraApiModuleDependencies :: ApiName -> Doc ann codegenExtraApiModuleDependencies apiName = diff --git a/test/golden/additional-properties.yaml.out b/test/golden/additional-properties.yaml.out index 20323af..9db0e77 100644 --- a/test/golden/additional-properties.yaml.out +++ b/test/golden/additional-properties.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -442,9 +442,9 @@ Test/Response/ListPets.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPets where import qualified Control.Applicative @@ -461,8 +461,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -492,9 +492,9 @@ Test/Response/ListPets2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPets2 where import qualified Control.Applicative @@ -511,8 +511,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -582,9 +582,9 @@ Test/Schemas/Pet.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Pet where import qualified Control.Applicative @@ -601,8 +601,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -649,9 +649,9 @@ Test/Schemas/Pets.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Pets where import qualified Control.Applicative @@ -668,8 +668,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/bug-1.yaml.out b/test/golden/bug-1.yaml.out index 5566bd2..27574a3 100644 --- a/test/golden/bug-1.yaml.out +++ b/test/golden/bug-1.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -428,9 +428,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -447,8 +447,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/bug-2.yaml.out b/test/golden/bug-2.yaml.out index 7dde6e2..e69a551 100644 --- a/test/golden/bug-2.yaml.out +++ b/test/golden/bug-2.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -428,9 +428,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -447,8 +447,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -478,9 +478,9 @@ Test/Schemas/Base.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Base where import qualified Control.Applicative @@ -497,8 +497,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -538,9 +538,9 @@ Test/Schemas/Enum.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Enum where import qualified Control.Applicative @@ -557,8 +557,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -610,9 +610,9 @@ Test/Schemas/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Test where import qualified Control.Applicative @@ -629,8 +629,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -675,9 +675,9 @@ Test/Schemas/Testee.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Testee where import qualified Control.Applicative @@ -694,8 +694,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/csv.yaml.out b/test/golden/csv.yaml.out index 9420494..270a7c9 100644 --- a/test/golden/csv.yaml.out +++ b/test/golden/csv.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -442,9 +442,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -461,8 +461,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -494,9 +494,9 @@ Test/Response/Test2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test2 where import qualified Control.Applicative @@ -513,8 +513,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/datetime.yaml.out b/test/golden/datetime.yaml.out index 46c2680..e752af2 100644 --- a/test/golden/datetime.yaml.out +++ b/test/golden/datetime.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -428,9 +428,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -447,8 +447,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -478,9 +478,9 @@ Test/Schemas/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Test where import qualified Control.Applicative @@ -497,8 +497,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/enum-bug.yaml.out b/test/golden/enum-bug.yaml.out index d0c99b1..af7f441 100644 --- a/test/golden/enum-bug.yaml.out +++ b/test/golden/enum-bug.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -431,9 +431,9 @@ Test/Response/Dummy.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Dummy where import qualified Control.Applicative @@ -450,8 +450,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -481,9 +481,9 @@ Test/Schemas/DockerPackage.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.DockerPackage where import qualified Control.Applicative @@ -500,8 +500,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -569,9 +569,9 @@ Test/Schemas/FilePackage.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.FilePackage where import qualified Control.Applicative @@ -588,8 +588,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -657,9 +657,9 @@ Test/Schemas/Package.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Package where import qualified Control.Applicative @@ -676,8 +676,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -714,9 +714,9 @@ Test/Schemas/PackageBase.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.PackageBase where import qualified Control.Applicative @@ -733,8 +733,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -793,9 +793,9 @@ Test/Schemas/PackageType.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.PackageType where import qualified Control.Applicative @@ -812,8 +812,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/enum.yaml.out b/test/golden/enum.yaml.out index ca24a42..d9df6fc 100644 --- a/test/golden/enum.yaml.out +++ b/test/golden/enum.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -495,9 +495,9 @@ Test/Response/ListPackages.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages where import qualified Control.Applicative @@ -514,8 +514,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -545,9 +545,9 @@ Test/Response/ListPackages2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages2 where import qualified Control.Applicative @@ -564,8 +564,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -634,9 +634,9 @@ Test/Response/ListPackages3.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages3 where import qualified Control.Applicative @@ -653,8 +653,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -717,9 +717,9 @@ Test/Response/ListPackages4.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages4 where import qualified Control.Applicative @@ -736,8 +736,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -767,9 +767,9 @@ Test/Response/ListPackages5.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages5 where import qualified Control.Applicative @@ -786,8 +786,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -817,9 +817,9 @@ Test/Schemas/InsightsTimeRange.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.InsightsTimeRange where import qualified Control.Applicative @@ -836,8 +836,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -895,9 +895,9 @@ Test/Schemas/Order.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Order where import qualified Control.Applicative @@ -914,8 +914,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -967,9 +967,9 @@ Test/Schemas/Package.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Package where import qualified Control.Applicative @@ -986,8 +986,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/haskell-ext.yaml.out b/test/golden/haskell-ext.yaml.out index 320da11..85513d0 100644 --- a/test/golden/haskell-ext.yaml.out +++ b/test/golden/haskell-ext.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -446,9 +446,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -465,8 +465,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -496,9 +496,9 @@ Test/Response/Test2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test2 where import qualified Control.Applicative @@ -515,8 +515,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -567,9 +567,9 @@ Test/Schemas/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Test where import qualified Control.Applicative @@ -586,8 +586,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/headers.yaml.out b/test/golden/headers.yaml.out index 8d7fc37..96fb8b7 100644 --- a/test/golden/headers.yaml.out +++ b/test/golden/headers.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -459,9 +459,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -478,8 +478,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -509,9 +509,9 @@ Test/Response/Test1.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test1 where import qualified Control.Applicative @@ -528,8 +528,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -559,9 +559,9 @@ Test/Response/Test2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test2 where import qualified Control.Applicative @@ -578,8 +578,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -609,9 +609,9 @@ Test/Schemas/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Test where import qualified Control.Applicative @@ -628,8 +628,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/lists.yaml.out b/test/golden/lists.yaml.out index cbc139a..9172b8b 100644 --- a/test/golden/lists.yaml.out +++ b/test/golden/lists.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -492,9 +492,9 @@ Test/Response/ListPackages.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages where import qualified Control.Applicative @@ -511,8 +511,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -542,9 +542,9 @@ Test/Response/ListPackages2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages2 where import qualified Control.Applicative @@ -561,8 +561,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -592,9 +592,9 @@ Test/Response/ListPackages3.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages3 where import qualified Control.Applicative @@ -611,8 +611,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -642,9 +642,9 @@ Test/Response/ListPackages4.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages4 where import qualified Control.Applicative @@ -661,8 +661,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -692,9 +692,9 @@ Test/Response/ListPackages5.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages5 where import qualified Control.Applicative @@ -711,8 +711,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -742,9 +742,9 @@ Test/Schemas/Inline.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Inline where import qualified Control.Applicative @@ -761,8 +761,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -804,9 +804,9 @@ Test/Schemas/Package.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Package where import qualified Control.Applicative @@ -823,8 +823,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -864,9 +864,9 @@ Test/Schemas/Packages.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Packages where import qualified Control.Applicative @@ -883,8 +883,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/numbers.yaml.out b/test/golden/numbers.yaml.out index 1bf920f..9103573 100644 --- a/test/golden/numbers.yaml.out +++ b/test/golden/numbers.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -428,9 +428,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -447,8 +447,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -478,9 +478,9 @@ Test/Schemas/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Test where import qualified Control.Applicative @@ -497,8 +497,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/object-without-type.yaml.out b/test/golden/object-without-type.yaml.out index 2f17700..8740bc2 100644 --- a/test/golden/object-without-type.yaml.out +++ b/test/golden/object-without-type.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -428,9 +428,9 @@ Test/Response/Test.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.Test where import qualified Control.Applicative @@ -447,8 +447,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/oneof.yaml.out b/test/golden/oneof.yaml.out index 1e87acd..23a9c84 100644 --- a/test/golden/oneof.yaml.out +++ b/test/golden/oneof.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -458,9 +458,9 @@ Test/Response/ListPackages.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages where import qualified Control.Applicative @@ -477,8 +477,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -508,9 +508,9 @@ Test/Response/ListPackages2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages2 where import qualified Control.Applicative @@ -527,8 +527,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -558,9 +558,9 @@ Test/Response/ListPackages3.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPackages3 where import qualified Control.Applicative @@ -577,8 +577,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -608,9 +608,9 @@ Test/Schemas/Inline.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Inline where import qualified Control.Applicative @@ -627,8 +627,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -689,9 +689,9 @@ Test/Schemas/Inline2.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Inline2 where import qualified Control.Applicative @@ -708,8 +708,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -787,9 +787,9 @@ Test/Schemas/Package.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Package where import qualified Control.Applicative @@ -806,8 +806,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -911,9 +911,9 @@ Test/Schemas/Pet.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Pet where import qualified Control.Applicative @@ -930,8 +930,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -971,9 +971,9 @@ Test/Schemas/PetOrPackage.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.PetOrPackage where import qualified Control.Applicative @@ -990,8 +990,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/petstore.yaml.out b/test/golden/petstore.yaml.out index 693ca56..e3a26d8 100644 --- a/test/golden/petstore.yaml.out +++ b/test/golden/petstore.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -459,9 +459,9 @@ Test/Response/CreatePets.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.CreatePets where import qualified Control.Applicative @@ -478,8 +478,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -513,9 +513,9 @@ Test/Response/ListPets.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ListPets where import qualified Control.Applicative @@ -532,8 +532,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -568,9 +568,9 @@ Test/Response/ShowPetById.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.ShowPetById where import qualified Control.Applicative @@ -587,8 +587,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -623,9 +623,9 @@ Test/Schemas/Error.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Error where import qualified Control.Applicative @@ -642,8 +642,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -687,9 +687,9 @@ Test/Schemas/Pet.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Pet where import qualified Control.Applicative @@ -706,8 +706,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -754,9 +754,9 @@ Test/Schemas/Pets.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Pets where import qualified Control.Applicative @@ -773,8 +773,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records diff --git a/test/golden/test1.yaml.out b/test/golden/test1.yaml.out index 2d0c974..62783ef 100644 --- a/test/golden/test1.yaml.out +++ b/test/golden/test1.yaml.out @@ -4,9 +4,9 @@ Test/Api.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Api where import qualified Control.Applicative @@ -23,8 +23,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -462,9 +462,9 @@ Test/Response/CreateUser.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.CreateUser where import qualified Control.Applicative @@ -481,8 +481,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -554,9 +554,9 @@ Test/Response/GetUser.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Response.GetUser where import qualified Control.Applicative @@ -573,8 +573,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -608,9 +608,9 @@ Test/Schemas/Car.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Car where import qualified Control.Applicative @@ -627,8 +627,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -683,9 +683,9 @@ Test/Schemas/NISE.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.NISE where import qualified Control.Applicative @@ -702,8 +702,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -779,9 +779,9 @@ Test/Schemas/PackageId.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.PackageId where import qualified Control.Applicative @@ -798,8 +798,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -930,9 +930,9 @@ Test/Schemas/Plane.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Plane where import qualified Control.Applicative @@ -949,8 +949,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records @@ -1015,9 +1015,9 @@ Test/Schemas/Vehicle.hs {-# LANGUAGE DataKinds #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE ScopedTypeVariables #-} module Test.Schemas.Vehicle where import qualified Control.Applicative @@ -1034,8 +1034,8 @@ import qualified Data.List.NonEmpty import qualified Data.Map import qualified Data.Maybe import qualified Data.Text -import qualified Data.Time import qualified Data.Text.Encoding +import qualified Data.Time import qualified GHC.Float import qualified GHC.Int import qualified GHC.Records