Fix IsString instance

snoyberg · Aug 16, 2017 · 5d47f26 · 5d47f26
1 parent db1e58b
commit 5d47f26
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/mime-mail/ChangeLog.md b/mime-mail/ChangeLog.md
@@ -1,3 +1,7 @@
+## 0.4.14
+
+* Add `IsString` instance for `Address`
+
 ## 0.4.13.1
 
 * Fix [#50](https://github.com/snoyberg/mime-mail/issues/50): space between name and address [#51](https://github.com/snoyberg/mime-mail/pull/51)

diff --git a/mime-mail/Network/Mail/Mime.hs b/mime-mail/Network/Mail/Mime.hs
@@ -123,7 +123,7 @@ data Address = Address
   deriving (Eq, Show)
 
 instance IsString Address where
-    fromString str = Address Nothing (fromString str)
+    fromString = Address Nothing . Data.String.fromString
 
 -- | How to encode a single part. You should use 'Base64' for binary data.
 data Encoding = None | Base64 | QuotedPrintableText | QuotedPrintableBinary

diff --git a/mime-mail/mime-mail.cabal b/mime-mail/mime-mail.cabal
@@ -1,5 +1,5 @@
 Name:                mime-mail
-Version:             0.4.13.1
+Version:             0.4.14
 Synopsis:            Compose MIME email messages.
 description:         Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/mime-mail>.
 Homepage:            http://github.com/snoyberg/mime-mail