diff --git a/DB-record/src/Database/Record/TH.hs b/DB-record/src/Database/Record/TH.hs
index 0f0d9a65..3354db3a 100644
--- a/DB-record/src/Database/Record/TH.hs
+++ b/DB-record/src/Database/Record/TH.hs
@@ -4,6 +4,8 @@
 
 module Database.Record.TH (
   recordTypeNameDefault, recordTypeDefault,
+
+  defineHasKeyConstraintInstance,
   defineHasNotNullKeyInstance,
   defineHasPrimaryKeyInstance,
   defineHasPrimaryKeyInstanceDefault,