@@ -138,6 +138,7 @@ data SchemaOptions = SchemaOptions
138138 { fieldLabelModifier :: String -> String
139139 , constructorTagModifier :: String -> String
140140 , datatypeNameModifier :: String -> String
141+ , allNullaryToStringTag :: Bool
141142 , useReferences :: Bool
142143 , unwrapUnaryRecords :: Bool
143144 }
@@ -147,6 +148,7 @@ defaultSchemaOptions = SchemaOptions
147148 { fieldLabelModifier = id
148149 , constructorTagModifier = id
149150 , datatypeNameModifier = id
151+ , allNullaryToStringTag = True
150152 , useReferences = True
151153 , unwrapUnaryRecords = False
152154 }
@@ -247,7 +249,7 @@ instance ToSchema c => GToSchema (K1 i c) where
247249
248250instance (GSumToSchema f, GSumToSchema g) => GToSchema (f :+: g) where
249251 gtoNamedSchema opts _ s
250− | allNullary = unnamed (toStringTag sumSchema)
252+ | allNullaryToStringTag opts && allNullary = unnamed (toStringTag sumSchema)
251253 | otherwise = unnamed sumSchema
252254 where
253255 (All allNullary, sumSchema) = gsumToSchema opts (Proxy :: Proxy (f :+: g)) s