git.iko.soy/typeable/swagger2
on master help sign in
Fix tests
da1fc8bNickolay Kudasov
test/Data/Swagger/Schema/ValidationSpec.hs+2−1
compare with master
unifiedsplit
@@ -148,7 +148,8 @@ instance Arbitrary MyRoseTree where
148
148
149data Light = NoLight | LightFreq Double | LightColor Color deriving (Show, Generic)
149data Light = NoLight | LightFreq Double | LightColor Color deriving (Show, Generic)
150
150
151−instance ToSchema Light
151+instance ToSchema Light where
152+ declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
152
153
153instance ToJSON Light where
154instance ToJSON Light where
154 toJSON = genericToJSON defaultOptions { sumEncoding = ObjectWithSingleField }
155 toJSON = genericToJSON defaultOptions { sumEncoding = ObjectWithSingleField }
test/Data/Swagger/SchemaSpec.hs+1−1
@@ -599,7 +599,7 @@ data Light
599 deriving (Generic)
599 deriving (Generic)
600
600
601instance ToSchema Light where
601instance ToSchema Light where
602− declareNamedSchema = genericDeclareNamedSchema defaultSchemaOptions
602+ declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
603 { unwrapUnaryRecords = True }
603 { unwrapUnaryRecords = True }
604
604
605lightSchemaJSON :: Value
605lightSchemaJSON :: Value