diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+### 3.9.1 [2022.07.28]
+* Add a `TextShow` instance for `UUID` from `uuid-types`.
+
 ## 3.9 [2022.05.28]
 * Remove instances for `ErrorT` and `ListT`, which had long been deprecated and
   were finally removed from the `transformers` library in version 0.6.0.0.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -37,6 +37,7 @@
 * [`transformers`](http://hackage.haskell.org/package/transformers)
 * [`unix`](http://hackage.haskell.org/package/unix)
 * [`unordered-containers`](http://hackage.haskell.org/package/unordered-containers)
+* [`uuid-types`](https://hackage.haskell.org/package/uuid-types)
 * [`vector`](http://hackage.haskell.org/package/vector)
 * [`Win32`](http://hackage.haskell.org/package/Win32)
 * [`xhtml`](http://hackage.haskell.org/package/xhtml)
diff --git a/src/TextShow/Data/UUID.hs b/src/TextShow/Data/UUID.hs
new file mode 100644
--- /dev/null
+++ b/src/TextShow/Data/UUID.hs
@@ -0,0 +1,9 @@
+{-# OPTIONS -fno-warn-orphans #-}
+module TextShow.Data.UUID where
+
+import qualified Data.UUID.Types as U
+import TextShow
+
+instance TextShow U.UUID where
+    showb = showtToShowb showt
+    showt = U.toText
diff --git a/src/TextShow/Instances.hs b/src/TextShow/Instances.hs
--- a/src/TextShow/Instances.hs
+++ b/src/TextShow/Instances.hs
@@ -33,6 +33,7 @@
 import TextShow.Data.Tagged                 ()
 import TextShow.Data.Time                   ()
 import TextShow.Data.UnorderedContainers    ()
+import TextShow.Data.UUID                   ()
 import TextShow.Data.Vector                 ()
 
 import TextShow.GHC.LanguageExtensions.Type ()
diff --git a/tests/Spec/Data/UUIDSpec.hs b/tests/Spec/Data/UUIDSpec.hs
new file mode 100644
--- /dev/null
+++ b/tests/Spec/Data/UUIDSpec.hs
@@ -0,0 +1,19 @@
+module Spec.Data.UUIDSpec (main, spec) where
+
+import           Data.Proxy                (Proxy (..))
+import           Data.UUID.Types           (UUID)
+
+import           Spec.Utils                (matchesTextShowSpec)
+
+import           Test.Hspec                (Spec, describe, hspec, parallel)
+import           Test.QuickCheck.Instances ()
+
+import           TextShow.Data.UUID        ()
+
+main :: IO ()
+main = hspec spec
+
+spec :: Spec
+spec = parallel $ do
+    describe "UUID" $
+        matchesTextShowSpec (Proxy :: Proxy UUID)
diff --git a/text-show-instances.cabal b/text-show-instances.cabal
--- a/text-show-instances.cabal
+++ b/text-show-instances.cabal
@@ -1,5 +1,5 @@
 name:                text-show-instances
-version:             3.9
+version:             3.9.1
 synopsis:            Additional instances for text-show
 description:         @text-show-instances@ is a supplemental library to @text-show@
                      that provides additional @Show@ instances for data types in
@@ -47,6 +47,8 @@
                      .
                      * @<http://hackage.haskell.org/package/unordered-containers unordered-containers>@
                      .
+                     * @<https://hackage.haskell.org/package/uuid-types          uuid-types>@
+                     .
                      * @<http://hackage.haskell.org/package/vector               vector>@
                      .
                      * @<http://hackage.haskell.org/package/Win32                Win32>@
@@ -113,6 +115,7 @@
                        TextShow.Data.Tagged
                        TextShow.Data.Time
                        TextShow.Data.UnorderedContainers
+                       TextShow.Data.UUID
                        TextShow.Data.Vector
                        TextShow.Language.Haskell.TH
                        TextShow.System.Console.Haskeline
@@ -154,9 +157,10 @@
                      , text                  >= 0.11.1 && < 2.1
                      , text-short            >= 0.1    && < 0.2
                      , text-show             >= 3.4    && < 4
-                     , time                  >= 0.1    && < 1.12
+                     , time                  >= 0.1    && < 1.13
                      , unordered-containers  >= 0.2    && < 0.3
-                     , vector                >= 0.12   && < 0.13
+                     , uuid-types            >= 1      && < 1.1
+                     , vector                >= 0.12   && < 0.14
                      , xhtml                 >= 3000.2 && < 3000.3
   hs-source-dirs:      src
   default-language:    Haskell2010
@@ -165,14 +169,14 @@
     ghc-options:       -fenable-th-splice-warnings
 
   if flag(base-4-9)
-    build-depends:     base                  >= 4.9 && < 4.17
+    build-depends:     base                  >= 4.9 && < 4.18
     cpp-options:       "-DNEW_FUNCTOR_CLASSES"
   else
     build-depends:     base                  >= 4.7 && < 4.9
 
   if flag(template-haskell-2-11)
-    build-depends:     template-haskell      >= 2.11 && < 2.19
-                     , ghc-boot-th           >= 8.0  && < 9.3
+    build-depends:     template-haskell      >= 2.11 && < 2.20
+                     , ghc-boot-th           >= 8.0  && < 9.5
   else
     build-depends:     template-haskell      >= 2.9  && < 2.11
 
@@ -237,6 +241,7 @@
                        Spec.Data.TaggedSpec
                        Spec.Data.TimeSpec
                        Spec.Data.UnorderedContainersSpec
+                       Spec.Data.UUIDSpec
                        Spec.Language.Haskell.THSpec
                        Spec.System.Console.HaskelineSpec
                        Spec.System.DirectorySpec
@@ -282,22 +287,23 @@
                      , text-show             >= 3.4    && < 4
                      , text-show-instances
                      , th-orphans            >= 0.13.8 && < 1
-                     , time                  >= 0.1    && < 1.12
+                     , time                  >= 0.1    && < 1.13
                      , transformers-compat   >= 0.5    && < 1
                      , unordered-containers  >= 0.2    && < 0.3
-                     , vector                >= 0.9    && < 0.13
+                     , uuid-types            >= 1      && < 1.1
+                     , vector                >= 0.9    && < 0.14
                      , xhtml                 >= 3000.2 && < 3000.3
   build-tool-depends:  hspec-discover:hspec-discover
 
   if flag(base-4-9)
-    build-depends:     base                  >= 4.9 && < 4.17
+    build-depends:     base                  >= 4.9 && < 4.18
     cpp-options:       "-DNEW_FUNCTOR_CLASSES"
   else
     build-depends:     base                  >= 4.7 && < 4.9
 
   if flag(template-haskell-2-11)
-    build-depends:     template-haskell      >= 2.11 && < 2.19
-                     , ghc-boot-th           >= 8.0  && < 9.3
+    build-depends:     template-haskell      >= 2.11 && < 2.20
+                     , ghc-boot-th           >= 8.0  && < 9.5
   else
     build-depends:     template-haskell      >= 2.9  && < 2.11