@@ -27,7 +27,7 @@ data VerifyDomainResponse =
2727 VerifyDomainResponse
2828 { _vdres_status :: Text
2929 , _vdres_domain :: Text
30− , _vdres_email :: TEV.EmailAddress
30+ , _vdres_email :: MandrillEmail
3131 } deriving Show
3232
3333makeLenses ''VerifyDomainResponse
@@ -42,4 +42,4 @@ verifyDomain :: MandrillKey
4242 -> IO (MandrillResponse VerifyDomainResponse)
4343verifyDomain k email =
4444 toMandrillResponse VerifyDomain
45− (VerifyDomainRq k (decodeUtf8 $ TEV.domainPart email) (decodeUtf8 $ TEV.localPart email))
45+ (VerifyDomainRq k (decodeUtf8 $ TEV.domainPart email) (decodeUtf8 $ TEV.localPart email))