Skip to content

Commit f115133

Browse files
author
Dan Fithian
committed
Regenerate testing files
1 parent eb938d7 commit f115133

File tree

6 files changed

+89
-41
lines changed

6 files changed

+89
-41
lines changed

‎testing/golden-output/src/OpenAPI/Types/CoverType.hs

Lines changed: 34 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -45,50 +45,50 @@ import {-# SOURCE #-} OpenAPI.Types.Value
4545
--
4646
data CoverType = CoverType {
4747
-- | cover
48-
coverTypeCover :: (GHC.Maybe.Maybe CoverTypeCoverVariants)
48+
coverType :: (GHC.Maybe.Maybe CoverTypeVariants)
4949
} deriving (GHC.Show.Show
5050
, GHC.Classes.Eq)
5151
instance Data.Aeson.Types.ToJSON.ToJSON CoverType
52-
where {toJSON obj = Data.Aeson.Types.Internal.object (Data.Foldable.concat (Data.Maybe.maybe GHC.Base.mempty (GHC.Base.pure GHC.Base.. ("cover" Data.Aeson.Types.ToJSON..=)) (coverTypeCover obj) : GHC.Base.mempty));
53-
toEncoding obj = Data.Aeson.Encoding.Internal.pairs (GHC.Base.mconcat (Data.Foldable.concat (Data.Maybe.maybe GHC.Base.mempty (GHC.Base.pure GHC.Base.. ("cover" Data.Aeson.Types.ToJSON..=)) (coverTypeCover obj) : GHC.Base.mempty)))}
52+
where {toJSON obj = Data.Aeson.Types.Internal.object (Data.Foldable.concat (Data.Maybe.maybe GHC.Base.mempty (GHC.Base.pure GHC.Base.. ("cover" Data.Aeson.Types.ToJSON..=)) (coverType obj) : GHC.Base.mempty));
53+
toEncoding obj = Data.Aeson.Encoding.Internal.pairs (GHC.Base.mconcat (Data.Foldable.concat (Data.Maybe.maybe GHC.Base.mempty (GHC.Base.pure GHC.Base.. ("cover" Data.Aeson.Types.ToJSON..=)) (coverType obj) : GHC.Base.mempty)))}
5454
instance Data.Aeson.Types.FromJSON.FromJSON CoverType
5555
where {parseJSON = Data.Aeson.Types.FromJSON.withObject "CoverType" (\obj -> GHC.Base.pure CoverType GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:! "cover"))}
5656
-- | Create a new 'CoverType' with all required fields.
5757
mkCoverType :: CoverType
58-
mkCoverType = CoverType{coverTypeCover = GHC.Maybe.Nothing}
58+
mkCoverType = CoverType{coverType = GHC.Maybe.Nothing}
5959
-- | Defines the oneOf schema located at @components.schemas.CoverType.properties.cover.oneOf@ in the specification.
6060
--
6161
--
62-
data CoverTypeCoverVariants =
63-
CoverTypeCoverPetByAge PetByAge
64-
| CoverTypeCoverMischling Mischling
65-
| CoverTypeCoverTest Test
66-
| CoverTypeCoverTest2 Test2
67-
| CoverTypeCoverTest3 Test3
68-
| CoverTypeCoverTest4 Test4
69-
| CoverTypeCoverTest5 Test5
70-
| CoverTypeCoverTest6 Test6
71-
| CoverTypeCoverTest7 Test7
72-
| CoverTypeCoverTest8 Test8
73-
| CoverTypeCoverTest9 Test9
74-
| CoverTypeCoverTest10 Test10
75-
| CoverTypeCoverValue Value
62+
data CoverTypeVariants =
63+
CoverTypePetByAge PetByAge
64+
| CoverTypeMischling Mischling
65+
| CoverTypeTest Test
66+
| CoverTypeTest2 Test2
67+
| CoverTypeTest3 Test3
68+
| CoverTypeTest4 Test4
69+
| CoverTypeTest5 Test5
70+
| CoverTypeTest6 Test6
71+
| CoverTypeTest7 Test7
72+
| CoverTypeTest8 Test8
73+
| CoverTypeTest9 Test9
74+
| CoverTypeTest10 Test10
75+
| CoverTypeValue Value
7676
deriving (GHC.Show.Show, GHC.Classes.Eq)
77-
instance Data.Aeson.Types.ToJSON.ToJSON CoverTypeCoverVariants
78-
where {toJSON (CoverTypeCoverPetByAge a) = Data.Aeson.Types.ToJSON.toJSON a;
79-
toJSON (CoverTypeCoverMischling a) = Data.Aeson.Types.ToJSON.toJSON a;
80-
toJSON (CoverTypeCoverTest a) = Data.Aeson.Types.ToJSON.toJSON a;
81-
toJSON (CoverTypeCoverTest2 a) = Data.Aeson.Types.ToJSON.toJSON a;
82-
toJSON (CoverTypeCoverTest3 a) = Data.Aeson.Types.ToJSON.toJSON a;
83-
toJSON (CoverTypeCoverTest4 a) = Data.Aeson.Types.ToJSON.toJSON a;
84-
toJSON (CoverTypeCoverTest5 a) = Data.Aeson.Types.ToJSON.toJSON a;
85-
toJSON (CoverTypeCoverTest6 a) = Data.Aeson.Types.ToJSON.toJSON a;
86-
toJSON (CoverTypeCoverTest7 a) = Data.Aeson.Types.ToJSON.toJSON a;
87-
toJSON (CoverTypeCoverTest8 a) = Data.Aeson.Types.ToJSON.toJSON a;
88-
toJSON (CoverTypeCoverTest9 a) = Data.Aeson.Types.ToJSON.toJSON a;
89-
toJSON (CoverTypeCoverTest10 a) = Data.Aeson.Types.ToJSON.toJSON a;
90-
toJSON (CoverTypeCoverValue a) = Data.Aeson.Types.ToJSON.toJSON a}
91-
instance Data.Aeson.Types.FromJSON.FromJSON CoverTypeCoverVariants
92-
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.<|> ((CoverTypeCoverTest8 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest9 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverTest10 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeCoverValue Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched")))))))))))) of
77+
instance Data.Aeson.Types.ToJSON.ToJSON CoverTypeVariants
78+
where {toJSON (CoverTypePetByAge a) = Data.Aeson.Types.ToJSON.toJSON a;
79+
toJSON (CoverTypeMischling a) = Data.Aeson.Types.ToJSON.toJSON a;
80+
toJSON (CoverTypeTest a) = Data.Aeson.Types.ToJSON.toJSON a;
81+
toJSON (CoverTypeTest2 a) = Data.Aeson.Types.ToJSON.toJSON a;
82+
toJSON (CoverTypeTest3 a) = Data.Aeson.Types.ToJSON.toJSON a;
83+
toJSON (CoverTypeTest4 a) = Data.Aeson.Types.ToJSON.toJSON a;
84+
toJSON (CoverTypeTest5 a) = Data.Aeson.Types.ToJSON.toJSON a;
85+
toJSON (CoverTypeTest6 a) = Data.Aeson.Types.ToJSON.toJSON a;
86+
toJSON (CoverTypeTest7 a) = Data.Aeson.Types.ToJSON.toJSON a;
87+
toJSON (CoverTypeTest8 a) = Data.Aeson.Types.ToJSON.toJSON a;
88+
toJSON (CoverTypeTest9 a) = Data.Aeson.Types.ToJSON.toJSON a;
89+
toJSON (CoverTypeTest10 a) = Data.Aeson.Types.ToJSON.toJSON a;
90+
toJSON (CoverTypeValue a) = Data.Aeson.Types.ToJSON.toJSON a}
91+
instance Data.Aeson.Types.FromJSON.FromJSON CoverTypeVariants
92+
where {parseJSON val = case (CoverTypePetByAge Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeMischling Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest2 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest3 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest4 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest6 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest7 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest8 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest9 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeTest10 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((CoverTypeValue Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched")))))))))))) of
9393
{Data.Aeson.Types.Internal.Success a -> GHC.Base.pure a;
9494
Data.Aeson.Types.Internal.Error a -> Control.Monad.Fail.fail a}}

‎testing/golden-output/src/OpenAPI/Types/CoverType.hs-boot

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,8 +6,8 @@ instance Show CoverType
66
instance Eq CoverType
77
instance Data.Aeson.FromJSON CoverType
88
instance Data.Aeson.ToJSON CoverType
9-
data CoverTypeCoverVariants
10-
instance Show CoverTypeCoverVariants
11-
instance Eq CoverTypeCoverVariants
12-
instance Data.Aeson.FromJSON CoverTypeCoverVariants
13-
instance Data.Aeson.ToJSON CoverTypeCoverVariants
9+
data CoverTypeVariants
10+
instance Show CoverTypeVariants
11+
instance Eq CoverTypeVariants
12+
instance Data.Aeson.FromJSON CoverTypeVariants
13+
instance Data.Aeson.ToJSON CoverTypeVariants

‎testing/golden-output/src/OpenAPI/Types/Mischling.hs

Lines changed: 20 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -155,6 +155,23 @@ instance Data.Aeson.Types.FromJSON.FromJSON MischlingAnother_relativeOneOf5
155155
mkMischlingAnother_relativeOneOf5 :: MischlingAnother_relativeOneOf5
156156
mkMischlingAnother_relativeOneOf5 = MischlingAnother_relativeOneOf5{mischlingAnother_relativeOneOf5Hunts = GHC.Maybe.Nothing,
157157
mischlingAnother_relativeOneOf5Pet_type = GHC.Maybe.Nothing}
158+
-- | Defines the object schema located at @components.schemas.Mischling.allOf.properties.another_relative.oneOf@ in the specification.
159+
--
160+
--
161+
data MischlingAnother_relativeAnother_cat = MischlingAnother_relativeAnother_cat {
162+
-- | another_cat
163+
mischlingAnother_relativeAnother_cat :: Cat
164+
} deriving (GHC.Show.Show
165+
, GHC.Classes.Eq)
166+
instance Data.Aeson.Types.ToJSON.ToJSON MischlingAnother_relativeAnother_cat
167+
where {toJSON obj = Data.Aeson.Types.Internal.object (Data.Foldable.concat (["another_cat" Data.Aeson.Types.ToJSON..= mischlingAnother_relativeAnother_cat obj] : GHC.Base.mempty));
168+
toEncoding obj = Data.Aeson.Encoding.Internal.pairs (GHC.Base.mconcat (Data.Foldable.concat (["another_cat" Data.Aeson.Types.ToJSON..= mischlingAnother_relativeAnother_cat obj] : GHC.Base.mempty)))}
169+
instance Data.Aeson.Types.FromJSON.FromJSON MischlingAnother_relativeAnother_cat
170+
where {parseJSON = Data.Aeson.Types.FromJSON.withObject "MischlingAnother_relativeAnother_cat" (\obj -> GHC.Base.pure MischlingAnother_relativeAnother_cat GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..: "another_cat"))}
171+
-- | Create a new 'MischlingAnother_relativeAnother_cat' with all required fields.
172+
mkMischlingAnother_relativeAnother_cat :: Cat -- ^ 'mischlingAnother_relativeAnother_cat'
173+
-> MischlingAnother_relativeAnother_cat
174+
mkMischlingAnother_relativeAnother_cat mischlingAnother_relativeAnother_cat = MischlingAnother_relativeAnother_cat{mischlingAnother_relativeAnother_cat = mischlingAnother_relativeAnother_cat}
158175
-- | Defines the oneOf schema located at @components.schemas.Mischling.allOf.properties.another_relative.oneOf@ in the specification.
159176
--
160177
--
@@ -166,19 +183,21 @@ data MischlingAnother_relativeVariants =
166183
| MischlingAnother_relativeText Data.Text.Internal.Text
167184
| MischlingAnother_relativeListTText [Data.Text.Internal.Text]
168185
| MischlingAnother_relativeMischlingAnother_relativeOneOf5 MischlingAnother_relativeOneOf5
186+
| MischlingAnother_relativeMischlingAnother_relativeAnother_cat MischlingAnother_relativeAnother_cat
169187
deriving (GHC.Show.Show, GHC.Classes.Eq)
170188
instance Data.Aeson.Types.ToJSON.ToJSON MischlingAnother_relativeVariants
171189
where {toJSON (MischlingAnother_relativeCat a) = Data.Aeson.Types.ToJSON.toJSON a;
172190
toJSON (MischlingAnother_relativePetByType a) = Data.Aeson.Types.ToJSON.toJSON a;
173191
toJSON (MischlingAnother_relativeText a) = Data.Aeson.Types.ToJSON.toJSON a;
174192
toJSON (MischlingAnother_relativeListTText a) = Data.Aeson.Types.ToJSON.toJSON a;
175193
toJSON (MischlingAnother_relativeMischlingAnother_relativeOneOf5 a) = Data.Aeson.Types.ToJSON.toJSON a;
194+
toJSON (MischlingAnother_relativeMischlingAnother_relativeAnother_cat a) = Data.Aeson.Types.ToJSON.toJSON a;
176195
toJSON (MischlingAnother_relativeEmptyString) = "";
177196
toJSON (MischlingAnother_relativeTest) = "test"}
178197
instance Data.Aeson.Types.FromJSON.FromJSON MischlingAnother_relativeVariants
179198
where {parseJSON val = if | val GHC.Classes.== "" -> GHC.Base.pure MischlingAnother_relativeEmptyString
180199
| val GHC.Classes.== "test" -> GHC.Base.pure MischlingAnother_relativeTest
181-
| GHC.Base.otherwise -> case (MischlingAnother_relativeCat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativePetByType Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeListTText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeMischlingAnother_relativeOneOf5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched")))) of
200+
| GHC.Base.otherwise -> case (MischlingAnother_relativeCat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativePetByType Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeListTText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeMischlingAnother_relativeOneOf5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((MischlingAnother_relativeMischlingAnother_relativeAnother_cat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched"))))) of
182201
{Data.Aeson.Types.Internal.Success a -> GHC.Base.pure a;
183202
Data.Aeson.Types.Internal.Error a -> Control.Monad.Fail.fail a}}
184203
-- | Defines the enum schema located at @components.schemas.Mischling.allOf.properties.breed@ in the specification.

‎testing/golden-output/src/OpenAPI/Types/Mischling.hs-boot

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,11 @@ instance Show MischlingAnother_relativeOneOf5
1111
instance Eq MischlingAnother_relativeOneOf5
1212
instance Data.Aeson.FromJSON MischlingAnother_relativeOneOf5
1313
instance Data.Aeson.ToJSON MischlingAnother_relativeOneOf5
14+
data MischlingAnother_relativeAnother_cat
15+
instance Show MischlingAnother_relativeAnother_cat
16+
instance Eq MischlingAnother_relativeAnother_cat
17+
instance Data.Aeson.FromJSON MischlingAnother_relativeAnother_cat
18+
instance Data.Aeson.ToJSON MischlingAnother_relativeAnother_cat
1419
data MischlingAnother_relativeVariants
1520
instance Show MischlingAnother_relativeVariants
1621
instance Eq MischlingAnother_relativeVariants

‎testing/golden-output/src/OpenAPI/Types/PetByAge.hs

Lines changed: 20 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,23 @@ instance Data.Aeson.Types.FromJSON.FromJSON PetByAgeAnother_relativeOneOf5
8383
mkPetByAgeAnother_relativeOneOf5 :: PetByAgeAnother_relativeOneOf5
8484
mkPetByAgeAnother_relativeOneOf5 = PetByAgeAnother_relativeOneOf5{petByAgeAnother_relativeOneOf5Hunts = GHC.Maybe.Nothing,
8585
petByAgeAnother_relativeOneOf5Pet_type = GHC.Maybe.Nothing}
86+
-- | Defines the object schema located at @components.schemas.PetByAge.properties.another_relative.oneOf@ in the specification.
87+
--
88+
--
89+
data PetByAgeAnother_relativeAnother_cat = PetByAgeAnother_relativeAnother_cat {
90+
-- | another_cat
91+
petByAgeAnother_relativeAnother_cat :: Cat
92+
} deriving (GHC.Show.Show
93+
, GHC.Classes.Eq)
94+
instance Data.Aeson.Types.ToJSON.ToJSON PetByAgeAnother_relativeAnother_cat
95+
where {toJSON obj = Data.Aeson.Types.Internal.object (Data.Foldable.concat (["another_cat" Data.Aeson.Types.ToJSON..= petByAgeAnother_relativeAnother_cat obj] : GHC.Base.mempty));
96+
toEncoding obj = Data.Aeson.Encoding.Internal.pairs (GHC.Base.mconcat (Data.Foldable.concat (["another_cat" Data.Aeson.Types.ToJSON..= petByAgeAnother_relativeAnother_cat obj] : GHC.Base.mempty)))}
97+
instance Data.Aeson.Types.FromJSON.FromJSON PetByAgeAnother_relativeAnother_cat
98+
where {parseJSON = Data.Aeson.Types.FromJSON.withObject "PetByAgeAnother_relativeAnother_cat" (\obj -> GHC.Base.pure PetByAgeAnother_relativeAnother_cat GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..: "another_cat"))}
99+
-- | Create a new 'PetByAgeAnother_relativeAnother_cat' with all required fields.
100+
mkPetByAgeAnother_relativeAnother_cat :: Cat -- ^ 'petByAgeAnother_relativeAnother_cat'
101+
-> PetByAgeAnother_relativeAnother_cat
102+
mkPetByAgeAnother_relativeAnother_cat petByAgeAnother_relativeAnother_cat = PetByAgeAnother_relativeAnother_cat{petByAgeAnother_relativeAnother_cat = petByAgeAnother_relativeAnother_cat}
86103
-- | Defines the oneOf schema located at @components.schemas.PetByAge.properties.another_relative.oneOf@ in the specification.
87104
--
88105
--
@@ -94,19 +111,21 @@ data PetByAgeAnother_relativeVariants =
94111
| PetByAgeAnother_relativeText Data.Text.Internal.Text
95112
| PetByAgeAnother_relativeListTText [Data.Text.Internal.Text]
96113
| PetByAgeAnother_relativePetByAgeAnother_relativeOneOf5 PetByAgeAnother_relativeOneOf5
114+
| PetByAgeAnother_relativePetByAgeAnother_relativeAnother_cat PetByAgeAnother_relativeAnother_cat
97115
deriving (GHC.Show.Show, GHC.Classes.Eq)
98116
instance Data.Aeson.Types.ToJSON.ToJSON PetByAgeAnother_relativeVariants
99117
where {toJSON (PetByAgeAnother_relativeCat a) = Data.Aeson.Types.ToJSON.toJSON a;
100118
toJSON (PetByAgeAnother_relativePetByType a) = Data.Aeson.Types.ToJSON.toJSON a;
101119
toJSON (PetByAgeAnother_relativeText a) = Data.Aeson.Types.ToJSON.toJSON a;
102120
toJSON (PetByAgeAnother_relativeListTText a) = Data.Aeson.Types.ToJSON.toJSON a;
103121
toJSON (PetByAgeAnother_relativePetByAgeAnother_relativeOneOf5 a) = Data.Aeson.Types.ToJSON.toJSON a;
122+
toJSON (PetByAgeAnother_relativePetByAgeAnother_relativeAnother_cat a) = Data.Aeson.Types.ToJSON.toJSON a;
104123
toJSON (PetByAgeAnother_relativeEmptyString) = "";
105124
toJSON (PetByAgeAnother_relativeTest) = "test"}
106125
instance Data.Aeson.Types.FromJSON.FromJSON PetByAgeAnother_relativeVariants
107126
where {parseJSON val = if | val GHC.Classes.== "" -> GHC.Base.pure PetByAgeAnother_relativeEmptyString
108127
| val GHC.Classes.== "test" -> GHC.Base.pure PetByAgeAnother_relativeTest
109-
| GHC.Base.otherwise -> case (PetByAgeAnother_relativeCat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativePetByType Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativeText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativeListTText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativePetByAgeAnother_relativeOneOf5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched")))) of
128+
| GHC.Base.otherwise -> case (PetByAgeAnother_relativeCat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativePetByType Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativeText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativeListTText Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativePetByAgeAnother_relativeOneOf5 Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> ((PetByAgeAnother_relativePetByAgeAnother_relativeAnother_cat Data.Functor.<$> Data.Aeson.Types.FromJSON.fromJSON val) GHC.Base.<|> Data.Aeson.Types.Internal.Error "No variant matched"))))) of
110129
{Data.Aeson.Types.Internal.Success a -> GHC.Base.pure a;
111130
Data.Aeson.Types.Internal.Error a -> Control.Monad.Fail.fail a}}
112131
-- | Defines the object schema located at @components.schemas.PetByAge.properties.first_relative.allOf@ in the specification.

‎testing/golden-output/src/OpenAPI/Types/PetByAge.hs-boot

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,11 @@ instance Show PetByAgeAnother_relativeOneOf5
1111
instance Eq PetByAgeAnother_relativeOneOf5
1212
instance Data.Aeson.FromJSON PetByAgeAnother_relativeOneOf5
1313
instance Data.Aeson.ToJSON PetByAgeAnother_relativeOneOf5
14+
data PetByAgeAnother_relativeAnother_cat
15+
instance Show PetByAgeAnother_relativeAnother_cat
16+
instance Eq PetByAgeAnother_relativeAnother_cat
17+
instance Data.Aeson.FromJSON PetByAgeAnother_relativeAnother_cat
18+
instance Data.Aeson.ToJSON PetByAgeAnother_relativeAnother_cat
1419
data PetByAgeAnother_relativeVariants
1520
instance Show PetByAgeAnother_relativeVariants
1621
instance Eq PetByAgeAnother_relativeVariants

0 commit comments

Comments
 (0)