diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,5 +1,9 @@
 See also https://pvp.haskell.org/faq
 
+## Version 1.4.0.1
+
+ * `text-2.0` compatibility
+
 ## Version 1.4.0.0
 
  * `Eq` is now a superclass of `Hashable`.
diff --git a/hashable.cabal b/hashable.cabal
--- a/hashable.cabal
+++ b/hashable.cabal
@@ -1,6 +1,6 @@
 cabal-version:      1.12
 name:               hashable
-version:            1.4.0.0
+version:            1.4.0.1
 synopsis:           A class for types that can be converted to a hash value
 description:
   This package defines a class, 'Hashable', for types that
@@ -87,7 +87,7 @@
     , containers  >=0.4.2.1 && <0.7
     , deepseq     >=1.3     && <1.5
     , ghc-prim
-    , text        >=0.12    && <1.3
+    , text        >=1.2.3.0 && <1.3 || >=2.0 && <2.1
 
   if !impl(ghc >=9.2)
     build-depends: base-orphans >=0.8.6
diff --git a/src/Data/Hashable/Class.hs b/src/Data/Hashable/Class.hs
--- a/src/Data/Hashable/Class.hs
+++ b/src/Data/Hashable/Class.hs
@@ -722,7 +722,23 @@
         hashByteArrayWithSalt ba 0 (BSI.length sbs) (hashWithSalt salt (BSI.length sbs))
 #endif
 
+#if MIN_VERSION_text(2,0,0)
+
 instance Hashable T.Text where
+    hashWithSalt salt (T.Text (TA.ByteArray arr) off len) =
+        hashByteArrayWithSalt arr off len (hashWithSalt salt len)
+
+instance Hashable TL.Text where
+    hashWithSalt salt = finalise . TL.foldlChunks step (SP salt 0)
+      where
+        finalise (SP s l) = hashWithSalt s l
+        step (SP s l) (T.Text (TA.ByteArray arr) off len) = SP
+            (hashByteArrayWithSalt arr off len s)
+            (l + len)
+
+#else
+
+instance Hashable T.Text where
     hashWithSalt salt (T.Text arr off len) =
         hashByteArrayWithSalt (TA.aBA arr) (off `shiftL` 1) (len `shiftL` 1)
         (hashWithSalt salt len)
@@ -734,6 +750,8 @@
         step (SP s l) (T.Text arr off len) = SP
             (hashByteArrayWithSalt (TA.aBA arr) (off `shiftL` 1) (len `shiftL` 1) s)
             (l + len)
+
+#endif
 
 -- | Compute the hash of a ThreadId.
 hashThreadId :: ThreadId -> Int
diff --git a/tests/Regress.hs b/tests/Regress.hs
--- a/tests/Regress.hs
+++ b/tests/Regress.hs
@@ -48,7 +48,12 @@
         hs @=? nub hs
 #if WORD_SIZE_IN_BITS == 64
     , testCase "64 bit Text" $ do
-        hash ("hello world" :: Text) @=? -3875242662334356092
+        hash ("hello world" :: Text) @=?
+#if MIN_VERSION_text(2,0,0)
+            4078614214911247440
+#else
+            -3875242662334356092
+#endif
 #endif
     , F.testGroup "concatenation"
         [ testCase "String" $ do