git.iko.soy/typeable/mandrill
on master help sign in
Changed the mmsg_metadata and mmdt_values fields from MandrillVars to Object
commit79683818618a07513a3ebff38a55e6818b43b1df authorBas van Dijk <v.dijk.bas@gmail.com> dateFri 2 Oct 2015, 11:49 (11 years ago) parent8526ea6
3 files changed+6−4
compare with master
unifiedsplit
README.md+2 src/Network/API/Mandrill.hs+1−1 src/Network/API/Mandrill/Types.hs+3−3
README.md+2
@@ -12,6 +12,8 @@ the [Mandrill](http://mandrillapp.com) transactional email service.
1212
1313* Changed the MandrillHeaders type synonym from Value to Object.
1414
15+* Changed the mmsg\_metadata and mmdt_values fields from MandrillVars to Object.
16+
1517## Version 0.4.0.0
1618
1719* Modified the `Base64ByteString` type to accept another constructor. This
src/Network/API/Mandrill.hs+1−1
@@ -88,7 +88,7 @@ emptyMessage f t = MandrillMessage {
8888 , _mmsg_subaccount = Nothing
8989 , _mmsg_google_analytics_domains = []
9090 , _mmsg_google_analytics_campaign = Nothing
91− , _mmsg_metadata = JSON.Null
91+ , _mmsg_metadata = H.empty
9292 , _mmsg_recipient_metadata = []
9393 , _mmsg_attachments = []
9494 , _mmsg_images = []
src/Network/API/Mandrill/Types.hs+3−3
@@ -190,7 +190,7 @@ deriveJSON defaultOptions { fieldLabelModifier = drop 6 } ''MandrillMergeVars
190190--------------------------------------------------------------------------------
191191data MandrillMetadata = MandrillMetadata {
192192 _mmdt_rcpt :: !T.Text
193− , _mmdt_values :: MandrillVars
193+ , _mmdt_values :: Object
194194 } deriving Show
195195
196196makeLenses ''MandrillMetadata
@@ -296,7 +296,7 @@ data MandrillMessage = MandrillMessage {
296296 -- ^ optional string indicating the value to set for the utm_campaign
297297 -- tracking parameter. If this isn't provided the email's from address
298298 -- will be used instead.
299− , _mmsg_metadata :: MandrillVars
299+ , _mmsg_metadata :: Object
300300 -- ^ metadata an associative array of user metadata. Mandrill will store
301301 -- this metadata and make it available for retrieval.
302302 -- In addition, you can select up to 10 metadata fields to index
@@ -341,7 +341,7 @@ instance Arbitrary MandrillMessage where
341341 <*> pure Nothing
342342 <*> pure []
343343 <*> pure Nothing
344− <*> pure emptyObject
344+ <*> pure H.empty
345345 <*> pure []
346346 <*> pure []
347347 <*> pure []