git.iko.soy/typeable/mandrill
on master help sign in
Merge pull request #52 from basvandijk/base-4.11
3dfc05cAlfredo Di Napoli
src/Network/API/Mandrill/Types.hs+5
compare with master
unifiedsplit
@@ -158,6 +158,11 @@ unsafeMkMandrillHtml = MandrillHtml . Blaze.preEscapedToHtml
158mkMandrillHtml :: Blaze.Html -> MandrillHtml
158mkMandrillHtml :: Blaze.Html -> MandrillHtml
159mkMandrillHtml = MandrillHtml
159mkMandrillHtml = MandrillHtml
160
160
161+#if MIN_VERSION_base(4,11,0)
162+instance Semigroup MandrillHtml where
163+ MandrillHtml m1 <> MandrillHtml m2 = MandrillHtml (m1 <> m2)
164+#endif
165+
161instance Monoid MandrillHtml where
166instance Monoid MandrillHtml where
162 mempty = MandrillHtml mempty
167 mempty = MandrillHtml mempty
163 mappend (MandrillHtml m1) (MandrillHtml m2) = MandrillHtml (m1 <> m2)
168 mappend (MandrillHtml m1) (MandrillHtml m2) = MandrillHtml (m1 <> m2)