fix: support top level array schema declarations with custom object n…

.circleci/golden/expected/openapi.cabal

@@ -21,6 +21,7 @@ library
       OpenAPI.Types.PetByAge
       OpenAPI.Types.PetByType
       OpenAPI.Types.Test6
+      OpenAPI.Types.Test7
       OpenAPI.Configuration
       OpenAPI.SecuritySchemes
       OpenAPI.Common

.circleci/golden/expected/src/OpenAPI.hs

@@ -16,6 +16,7 @@ module OpenAPI (
   module OpenAPI.Types.PetByAge,
   module OpenAPI.Types.PetByType,
   module OpenAPI.Types.Test6,
+  module OpenAPI.Types.Test7,
   module OpenAPI.Configuration,
   module OpenAPI.SecuritySchemes,
   module OpenAPI.Common,
@@ -35,6 +36,7 @@ import OpenAPI.Types.Mischling
 import OpenAPI.Types.PetByAge
 import OpenAPI.Types.PetByType
 import OpenAPI.Types.Test6
+import OpenAPI.Types.Test7
 import OpenAPI.Configuration
 import OpenAPI.SecuritySchemes
 import OpenAPI.Common

.circleci/golden/expected/src/OpenAPI/Types.hs

@@ -10,6 +10,7 @@ module OpenAPI.Types (
   module OpenAPI.Types.PetByAge,
   module OpenAPI.Types.PetByType,
   module OpenAPI.Types.Test6,
+  module OpenAPI.Types.Test7,
   ) where
 
 import OpenAPI.TypeAlias
@@ -20,3 +21,4 @@ import OpenAPI.Types.Mischling
 import OpenAPI.Types.PetByAge
 import OpenAPI.Types.PetByType
 import OpenAPI.Types.Test6
+import OpenAPI.Types.Test7

.circleci/golden/expected/src/OpenAPI/Types/CoverType.hs

@@ -33,6 +33,7 @@ import OpenAPI.TypeAlias
 import {-# SOURCE #-} OpenAPI.Types.Mischling
 import {-# SOURCE #-} OpenAPI.Types.PetByAge
 import {-# SOURCE #-} OpenAPI.Types.Test6
+import {-# SOURCE #-} OpenAPI.Types.Test7
 
 -- | Defines the object schema located at @components.schemas.CoverType@ in the specification.
 -- 
@@ -62,6 +63,7 @@ data CoverTypeCoverVariants =
   | CoverTypeCoverTest4 Test4
   | CoverTypeCoverTest5 Test5
   | CoverTypeCoverTest6 Test6
+  | CoverTypeCoverTest7 Test7
   deriving (GHC.Show.Show, GHC.Classes.Eq)
 instance Data.Aeson.Types.ToJSON.ToJSON CoverTypeCoverVariants
     where toJSON (CoverTypeCoverPetByAge a) = Data.Aeson.Types.ToJSON.toJSON a
@@ -72,7 +74,8 @@ instance Data.Aeson.Types.ToJSON.ToJSON CoverTypeCoverVariants
           toJSON (CoverTypeCoverTest4 a) = Data.Aeson.Types.ToJSON.toJSON a
           toJSON (CoverTypeCoverTest5 a) = Data.Aeson.Types.ToJSON.toJSON a
           toJSON (CoverTypeCoverTest6 a) = Data.Aeson.Types.ToJSON.toJSON a
+          toJSON (CoverTypeCoverTest7 a) = Data.Aeson.Types.ToJSON.toJSON a
 instance Data.Aeson.Types.FromJSON.FromJSON CoverTypeCoverVariants
-    where parseJSON val = case (CoverTypeCoverPetByAge Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverMischling Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest2 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest3 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest4 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest6 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched"))))))) of
+    where parseJSON val = case (CoverTypeCoverPetByAge Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverMischling Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest2 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest3 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest4 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest6 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest7 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched")))))))) of
                               Data.Aeson.Types.Internal.Success a -> GHC.Base.pure a
                               Data.Aeson.Types.Internal.Error a -> Control.Monad.Fail.fail a

.circleci/golden/expected/src/OpenAPI/Types/Test7.hs

@@ -0,0 +1,56 @@
+-- CHANGE WITH CAUTION: This is a generated code file generated by https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator.
+
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE MultiWayIf #-}
+
+-- | Contains the types generated from the schema Test7
+module OpenAPI.Types.Test7 where
+
+import qualified Prelude as GHC.Integer.Type
+import qualified Prelude as GHC.Maybe
+import qualified Control.Monad.Fail
+import qualified Data.Aeson
+import qualified Data.Aeson as Data.Aeson.Encoding.Internal
+import qualified Data.Aeson as Data.Aeson.Types
+import qualified Data.Aeson as Data.Aeson.Types.FromJSON
+import qualified Data.Aeson as Data.Aeson.Types.ToJSON
+import qualified Data.Aeson as Data.Aeson.Types.Internal
+import qualified Data.ByteString.Char8
+import qualified Data.ByteString.Char8 as Data.ByteString.Internal
+import qualified Data.Functor
+import qualified Data.Scientific
+import qualified Data.Text
+import qualified Data.Text.Internal
+import qualified Data.Time.Calendar as Data.Time.Calendar.Days
+import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
+import qualified GHC.Base
+import qualified GHC.Classes
+import qualified GHC.Int
+import qualified GHC.Show
+import qualified GHC.Types
+import qualified OpenAPI.Common
+import OpenAPI.TypeAlias
+
+-- | Defines the object schema located at @components.schemas.Test7.items@ in the specification.
+-- 
+-- 
+data Test7Item = Test7Item {
+  -- | prop1
+  test7ItemProp1 :: (GHC.Maybe.Maybe GHC.Types.Int)
+  -- | prop2
+  , test7ItemProp2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
+  } deriving (GHC.Show.Show
+  , GHC.Classes.Eq)
+instance Data.Aeson.Types.ToJSON.ToJSON Test7Item
+    where toJSON obj = Data.Aeson.Types.Internal.object ("prop1" Data.Aeson.Types.ToJSON..= test7ItemProp1 obj : "prop2" Data.Aeson.Types.ToJSON..= test7ItemProp2 obj : GHC.Base.mempty)
+          toEncoding obj = Data.Aeson.Encoding.Internal.pairs (("prop1" Data.Aeson.Types.ToJSON..= test7ItemProp1 obj) GHC.Base.<> ("prop2" Data.Aeson.Types.ToJSON..= test7ItemProp2 obj))
+instance Data.Aeson.Types.FromJSON.FromJSON Test7Item
+    where parseJSON = Data.Aeson.Types.FromJSON.withObject "Test7Item" (\obj -> (GHC.Base.pure Test7Item GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "prop1")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "prop2"))
+-- | Create a new 'Test7Item' with all required fields.
+mkTest7Item :: Test7Item
+mkTest7Item = Test7Item{test7ItemProp1 = GHC.Maybe.Nothing,
+                        test7ItemProp2 = GHC.Maybe.Nothing}
+-- | Defines an alias for the schema located at @components.schemas.Test7@ in the specification.
+-- 
+-- 
+type Test7 = [Test7Item]

.circleci/golden/expected/src/OpenAPI/Types/Test7.hs-boot

@@ -0,0 +1,9 @@
+module OpenAPI.Types.Test7 where
+import Data.Aeson
+import qualified Data.Aeson as Data.Aeson.Types.Internal
+data Test7Item
+instance Show Test7Item
+instance Eq Test7Item
+instance FromJSON Test7Item
+instance ToJSON Test7Item
+type Test7 = [Test7Item]