@@ -120,6 +120,7 @@ instance SwaggerMonoid (Maybe a) where
120 swaggerMappend x Nothing = x
120 swaggerMappend x Nothing = x
121 swaggerMappend _ y = y
121 swaggerMappend _ y = y
123+-- | __WARNING:__ not a true monoid (`swaggerMempty` breaks right identity law).
123instance SwaggerMonoid Bool where
124instance SwaggerMonoid Bool where
124 swaggerMempty = False
125 swaggerMempty = False
125 swaggerMappend _ y = y
126 swaggerMappend _ y = y