git.iko.soy/typeable/swagger2
on master help sign in
Fix tests
commitda1fc8b0049782814ff668bc982aaa89f3795b28 authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateThu 7 Sep 2017, 03:58 (9 years ago) parent1200b30
2 files changed+3−2
compare with master
unifiedsplit
test/Data/Swagger/Schema/ValidationSpec.hs+2−1 test/Data/Swagger/SchemaSpec.hs+1−1
test/Data/Swagger/Schema/ValidationSpec.hs+2−1
@@ -148,7 +148,8 @@ instance Arbitrary MyRoseTree where
148148
149149data Light = NoLight | LightFreq Double | LightColor Color deriving (Show, Generic)
150150
151−instance ToSchema Light
151+instance ToSchema Light where
152+ declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
152153
153154instance ToJSON Light where
154155 toJSON = genericToJSON defaultOptions { sumEncoding = ObjectWithSingleField }
test/Data/Swagger/SchemaSpec.hs+1−1
@@ -599,7 +599,7 @@ data Light
599599 deriving (Generic)
600600
601601instance ToSchema Light where
602− declareNamedSchema = genericDeclareNamedSchema defaultSchemaOptions
602+ declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
603603 { unwrapUnaryRecords = True }
604604
605605lightSchemaJSON :: Value