@@ -1,5 +1,6 @@
11{-# LANGUAGE DefaultSignatures #-}
22{-# LANGUAGE FlexibleContexts #-}
3+{-# LANGUAGE OverloadedStrings #-}
34{-# LANGUAGE TypeOperators #-}
45module Data.Swagger.Internal.Utils where
56
@@ -111,6 +112,7 @@ instance SwaggerMonoid [a]
111112
112113instance SwaggerMonoid Text where
113114 swaggerMempty = mempty
115+ swaggerMappend x "" = x
114116 swaggerMappend _ y = y
115117
116118instance SwaggerMonoid (Maybe a) where