diff --git a/emailaddress.cabal b/emailaddress.cabal
--- a/emailaddress.cabal
+++ b/emailaddress.cabal
@@ -1,5 +1,5 @@
 name:                emailaddress
-version:             0.1.5.0
+version:             0.1.6.0
 synopsis:            Wrapper around email-validate library adding instances for common type classes.
 description:         Please see README.md
 homepage:            https://github.com/cdepillabout/emailaddress#readme
diff --git a/src/Text/Email/Validate.hs b/src/Text/Email/Validate.hs
--- a/src/Text/Email/Validate.hs
+++ b/src/Text/Email/Validate.hs
@@ -28,6 +28,8 @@
     , validate
     , emailAddressFromText
     , validateFromText
+    , emailAddressFromString
+    , validateFromString
       -- * Check validity
     , isValid
       -- * Convert to Text
@@ -44,5 +46,6 @@
 
 import Text.Email.Validate.Internal
     ( EmailAddress, canonicalizeEmail, domainPart, emailAddress
-    , emailAddressFromText, isValid, localPart, toByteString, toText, validate
-    , validateFromText, unsafeEmailAddress )
+    , emailAddressFromString, emailAddressFromText, isValid, localPart
+    , toByteString, toText, validate, validateFromString, validateFromText
+    , unsafeEmailAddress )
diff --git a/src/Text/Email/Validate/Internal.hs b/src/Text/Email/Validate/Internal.hs
--- a/src/Text/Email/Validate/Internal.hs
+++ b/src/Text/Email/Validate/Internal.hs
@@ -13,6 +13,8 @@
     , validate
     , emailAddressFromText
     , validateFromText
+    , emailAddressFromString
+    , validateFromString
     , unsafeEmailAddress
     , localPart
     , domainPart
@@ -200,6 +202,14 @@
 -- | Create an 'EmailAddress' from a 'Text' value.  See 'emailAddress'.
 emailAddressFromText :: Text -> Maybe EmailAddress
 emailAddressFromText = emailAddress . encodeUtf8
+
+-- | Create an 'EmailAddress' from a 'String' value.  See 'validate'.
+validateFromString :: String -> Either String EmailAddress
+validateFromString = validateFromText . pack
+
+-- | Create an 'EmailAddress' from a 'String' value.  See 'emailAddress'.
+emailAddressFromString :: String -> Maybe EmailAddress
+emailAddressFromString = emailAddressFromText . pack
 
 -- | Wrapper around 'EmailValidate.unsafeEmailAddress'.
 --