git.iko.soy/typeable/swagger2
on master help sign in
Fix SwaggerMonoid Text instance (now it is true Monoid)
383a1faNickolay Kudasov
src/Data/Swagger/Internal/Utils.hs+2
compare with master
unifiedsplit
@@ -1,5 +1,6 @@
1{-# LANGUAGE DefaultSignatures #-}
1{-# LANGUAGE DefaultSignatures #-}
2{-# LANGUAGE FlexibleContexts #-}
2{-# LANGUAGE FlexibleContexts #-}
3+{-# LANGUAGE OverloadedStrings #-}
3{-# LANGUAGE TypeOperators #-}
4{-# LANGUAGE TypeOperators #-}
4module Data.Swagger.Internal.Utils where
5module Data.Swagger.Internal.Utils where
5
6
@@ -111,6 +112,7 @@ instance SwaggerMonoid [a]
111
112
112instance SwaggerMonoid Text where
113instance SwaggerMonoid Text where
113 swaggerMempty = mempty
114 swaggerMempty = mempty
115+ swaggerMappend x "" = x
114 swaggerMappend _ y = y
116 swaggerMappend _ y = y
115
117
116instance SwaggerMonoid (Maybe a) where
118instance SwaggerMonoid (Maybe a) where