remove actual json instance
commitfd22b874feb76fbb76911b6049b4a89f181857d8
authorMark Wotton <mwotton@gmail.com>
dateMon 16 May 2016, 10:38 (10 years ago)
parent563577c
src/Network/API/Mandrill/Types.hs−10
@@ -387,13 +387,3 @@ instance FromJSON MandrillDate where
387387 case timeParse defaultTimeLocale "%Y-%m-%d %I:%M:%S%Q" (T.unpack t) of
388388 Just d -> pure $ MandrillDate d
389389 _ -> fail "could not parse Mandrill date"
390−
391−
392−instance ToJSON TEV.EmailAddress where
393− toJSON = String . TL.decodeUtf8 . TEV.toByteString
394−
395−instance FromJSON TEV.EmailAddress where
396− parseJSON (String s) = case TEV.emailAddress (TL.encodeUtf8 s) of
397− Nothing -> mzero
398− Just x -> return x
399− parseJSON _ = mzero