diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,8 @@
+# hpqtypes-extras-1.14.1.0 (2022-01-11)
+* Support unmanaged local indexes whose names start with "local_".
+
 # hpqtypes-extras-1.14.0.0 (2021-12-13)
-* Add Support for ON CONFLICT to sqlInsertSelect.
+* Add support for ON CONFLICT to sqlInsertSelect.
 * Remove upper bounds from library dependencies.
 * Remove kRun* and kWhyNot functions.
 
diff --git a/hpqtypes-extras.cabal b/hpqtypes-extras.cabal
--- a/hpqtypes-extras.cabal
+++ b/hpqtypes-extras.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                hpqtypes-extras
-version:             1.14.0.0
+version:             1.14.1.0
 synopsis:            Extra utilities for hpqtypes library
 description:         The following extras for hpqtypes library:
                      .
@@ -20,7 +20,7 @@
 copyright:           Scrive AB
 category:            Database
 build-type:          Simple
-tested-with:         GHC ==8.0.2 || ==8.2.2 || ==8.4.4 || ==8.6.5 || ==8.8.4 || ==8.10.3
+tested-with:         GHC ==8.0.2 || ==8.2.2 || ==8.4.4 || ==8.6.5 || ==8.8.4 || ==8.10.7 || ==9.0.2
 
 Source-repository head
   Type:     git
diff --git a/src/Database/PostgreSQL/PQTypes/Checks.hs b/src/Database/PostgreSQL/PQTypes/Checks.hs
--- a/src/Database/PostgreSQL/PQTypes/Checks.hs
+++ b/src/Database/PostgreSQL/PQTypes/Checks.hs
@@ -20,6 +20,7 @@
 import Control.Monad.Reader
 import Data.Int
 import Data.Function (on)
+import Data.List (partition)
 import Data.Maybe
 import Data.Monoid
 import Data.Monoid.Utils
@@ -521,10 +522,20 @@
 
         checkIndexes :: [TableIndex] -> [(TableIndex, RawSQL ())]
                      -> ValidationResult
-        checkIndexes defs indexes = mconcat [
-            checkEquality "INDEXes" defs (map fst indexes)
-          , checkNames (indexName tblName) indexes
-          ]
+        checkIndexes defs allIndexes = mconcat
+          $ checkEquality "INDEXes" defs (map fst indexes)
+          : checkNames (indexName tblName) indexes
+          : map localIndexInfo localIndexes
+          where
+            localIndexInfo (index, name) = validationInfo $ T.concat
+              [ "Found a local index '"
+              , unRawSQL name
+              , "': "
+              , T.pack (show index)
+              ]
+
+            (localIndexes, indexes) = (`partition` allIndexes) $ \(_, name) ->
+              "local_" `T.isPrefixOf` unRawSQL name
 
         checkForeignKeys :: [ForeignKey] -> [(ForeignKey, RawSQL ())]
                          -> ValidationResult
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -450,6 +450,10 @@
   step "Creating the database (schema version 1)..."
   migrateDatabase defaultExtrasOptions extensions domains
     composites schema1Tables schema1Migrations
+
+  -- Add a local index that shouldn't trigger validation errors.
+  runSQL_ "CREATE INDEX local_idx_bank_name ON bank(name)"
+
   checkDatabase defaultExtrasOptions composites domains schema1Tables
 
 testDBSchema1 :: (String -> TestM ()) -> TestM ([UUID], [UUID])