51d69d3 · typeable/openapi3

git.iko.soy/typeable/openapi3

on master help sign in

Add allNullaryToStringTag option

51d69d3Nickolay Kudasov11 years ago

src/Data/Swagger/Schema/Internal.hs+3−1

@@ -138,6 +138,7 @@ data SchemaOptions = SchemaOptions

138 { fieldLabelModifier :: String -> String

139 , constructorTagModifier :: String -> String

140 , datatypeNameModifier :: String -> String

141+ , allNullaryToStringTag :: Bool

141 , useReferences :: Bool

142 , useReferences :: Bool

142 , unwrapUnaryRecords :: Bool

143 , unwrapUnaryRecords :: Bool

143 }

144 }

@@ -147,6 +148,7 @@ defaultSchemaOptions = SchemaOptions

147 { fieldLabelModifier = id

148 { fieldLabelModifier = id

148 , constructorTagModifier = id

149 , constructorTagModifier = id

149 , datatypeNameModifier = id

150 , datatypeNameModifier = id

151+ , allNullaryToStringTag = True

150 , useReferences = True

152 , useReferences = True

151 , unwrapUnaryRecords = False

153 , unwrapUnaryRecords = False

152 }

154 }

@@ -247,7 +249,7 @@ instance ToSchema c => GToSchema (K1 i c) where

247

249

248instance (GSumToSchema f, GSumToSchema g) => GToSchema (f :+: g) where

250instance (GSumToSchema f, GSumToSchema g) => GToSchema (f :+: g) where

249 gtoNamedSchema opts _ s

251 gtoNamedSchema opts _ s

250− | allNullary = unnamed (toStringTag sumSchema)

252+ | allNullaryToStringTag opts && allNullary = unnamed (toStringTag sumSchema)

251 | otherwise = unnamed sumSchema

253 | otherwise = unnamed sumSchema

252 where

254 where

253 (All allNullary, sumSchema) = gsumToSchema opts (Proxy :: Proxy (f :+: g)) s

255 (All allNullary, sumSchema) = gsumToSchema opts (Proxy :: Proxy (f :+: g)) s