diff --git a/CHANGES b/CHANGES
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,7 @@
+1.0.2
+
+- Add toText/fromText
+
 1.0.1
 
 - Update dependencies in tests and benchmarks.
diff --git a/Data/UUID/Types.hs b/Data/UUID/Types.hs
--- a/Data/UUID/Types.hs
+++ b/Data/UUID/Types.hs
@@ -18,6 +18,8 @@
 module Data.UUID.Types(UUID
                 ,toString
                 ,fromString
+                ,toText
+                ,fromText
                 ,toASCIIBytes
                 ,fromASCIIBytes
                 ,toLazyASCIIBytes
diff --git a/Data/UUID/Types/Internal.hs b/Data/UUID/Types/Internal.hs
--- a/Data/UUID/Types/Internal.hs
+++ b/Data/UUID/Types/Internal.hs
@@ -20,6 +20,8 @@
     ,toByteString
     ,fromString
     ,toString
+    ,fromText
+    ,toText
     ,fromWords
     ,toWords
     ,toList
@@ -61,6 +63,8 @@
 import qualified Data.ByteString.Internal as BI
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.ByteString.Unsafe as BU
+import           Data.Text (Text)
+import qualified Data.Text as T
 
 import Data.UUID.Types.Internal.Builder
 
@@ -306,6 +310,15 @@
 
           hexn :: Word32 -> Int -> Char
           hexn w r = intToDigit $ fromIntegral ((w `shiftR` r) .&. 0xf)
+
+-- | If the passed in `Text` can be parsed as an ASCII representation of
+--   a `UUID`, it will be. The hyphens may not be omitted.
+fromText :: Text -> Maybe UUID
+fromText = fromString . T.unpack
+
+-- | Convert a UUID into a hyphentated string using lower-case letters.
+toText :: UUID -> Text
+toText = T.pack . toString
 
 -- | Convert a UUID into a hyphentated string using lower-case letters, packed
 --   as ASCII bytes into `B.ByteString`.
diff --git a/uuid-types.cabal b/uuid-types.cabal
--- a/uuid-types.cabal
+++ b/uuid-types.cabal
@@ -1,5 +1,5 @@
 Name: uuid-types
-Version: 1.0.1
+Version: 1.0.2
 Copyright: (c) 2008-2014 Antoine Latter
 Author: Antoine Latter
 Maintainer: aslatter@gmail.com
@@ -32,7 +32,8 @@
                 bytestring >= 0.9 && < 0.11,
                 deepseq >= 1.3 && < 1.5,
                 hashable (>= 1.1.1.0 && < 1.2.0) || (>= 1.2.1 && < 1.3),
-                random >= 1.0.1 && < 1.2
+                random >= 1.0.1 && < 1.2,
+                text >= 1 && < 1.3
 
  Exposed-Modules:
    Data.UUID.Types