From 383a1fa3770e09552d445a4c8915a7f5ba68a71c Mon Sep 17 00:00:00 2001
From: Nickolay Kudasov <nickolay.kudasov@gmail.com>
Date: Tue, 10 Nov 2015 13:00:33 +0300
Subject: [PATCH] Fix SwaggerMonoid Text instance (now it is true Monoid)

---
 src/Data/Swagger/Internal/Utils.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Data/Swagger/Internal/Utils.hs b/src/Data/Swagger/Internal/Utils.hs
index 46b4b8c..aa2f56b 100644
--- a/src/Data/Swagger/Internal/Utils.hs
+++ b/src/Data/Swagger/Internal/Utils.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE DefaultSignatures #-}
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeOperators #-}
 module Data.Swagger.Internal.Utils where
 
@@ -111,6 +112,7 @@ instance SwaggerMonoid [a]
 
 instance SwaggerMonoid Text where
   swaggerMempty = mempty
+  swaggerMappend x "" = x
   swaggerMappend _ y = y
 
 instance SwaggerMonoid (Maybe a) where