Add warning to SwaggerMonoid Bool instance

GetShopTV · Nov 10, 2015 · 55b6369 · 55b6369
1 parent 383a1fa
commit 55b6369
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Data/Swagger/Internal/Utils.hs b/src/Data/Swagger/Internal/Utils.hs
@@ -120,6 +120,7 @@ instance SwaggerMonoid (Maybe a) where
   swaggerMappend x Nothing = x
   swaggerMappend _ y = y
 
+-- | __WARNING:__ not a true monoid (`swaggerMempty` breaks right identity law).
 instance SwaggerMonoid Bool where
   swaggerMempty = False
   swaggerMappend _ y = y