git.iko.soy/typeable/mandrill
on master help sign in
Support base >= 4.11
commit30356d9dfc025a5f35a156b17685241fc3882c55 authorBas van Dijk <v.dijk.bas@gmail.com> dateFri 21 Sep 2018, 19:03 (8 years ago) parentca4b2b0
1 file changed+5
src/Network/API/Mandrill/Types.hs+5
src/Network/API/Mandrill/Types.hs+5
@@ -158,6 +158,11 @@ unsafeMkMandrillHtml = MandrillHtml . Blaze.preEscapedToHtml
158158mkMandrillHtml :: Blaze.Html -> MandrillHtml
159159mkMandrillHtml = MandrillHtml
160160
161+#if MIN_VERSION_base(4,11,0)
162+instance Semigroup MandrillHtml where
163+ MandrillHtml m1 <> MandrillHtml m2 = MandrillHtml (m1 <> m2)
164+#endif
165+
161166instance Monoid MandrillHtml where
162167 mempty = MandrillHtml mempty
163168 mappend (MandrillHtml m1) (MandrillHtml m2) = MandrillHtml (m1 <> m2)