diff --git a/relational-join/src/Database/Relational/Query/Join.hs b/relational-join/src/Database/Relational/Query/Join.hs
index 6208d70f..9da68d2a 100644
--- a/relational-join/src/Database/Relational/Query/Join.hs
+++ b/relational-join/src/Database/Relational/Query/Join.hs
@@ -16,7 +16,7 @@ import Prelude hiding (product)
 import Control.Monad (liftM, ap)
 import Control.Applicative (Applicative (pure, (<*>)))
 
-import Database.Record.Persistable (PersistableWidth)
+import Database.Record (PersistableWidth)
 
 import Database.Relational.Query.AliasId.Unsafe (primAlias)
 import Database.Relational.Query.AliasId (AliasId, newAliasId, Qualified)
diff --git a/relational-join/src/Database/Relational/Query/Pi.hs b/relational-join/src/Database/Relational/Query/Pi.hs
index 2ae2379f..1fa4ce74 100644
--- a/relational-join/src/Database/Relational/Query/Pi.hs
+++ b/relational-join/src/Database/Relational/Query/Pi.hs
@@ -9,9 +9,10 @@ module Database.Relational.Query.Pi (
   leafIndex,
   ) where
 
+import Database.Record
+  (PersistableWidth, persistableWidth, PersistableRecordWidth)
 import Database.Record.Persistable
-  (PersistableWidth, persistableWidth,
-   PersistableRecordWidth, runPersistableRecordWidth)
+  (runPersistableRecordWidth)
 
 import Database.Relational.Query.Pi.Unsafe
   (PiUnit, offset, Pi ((:*), Leaf), definePiUnit)
diff --git a/relational-join/src/Database/Relational/Query/Projection.hs b/relational-join/src/Database/Relational/Query/Projection.hs
index 3726f415..2f6d5a2a 100644
--- a/relational-join/src/Database/Relational/Query/Projection.hs
+++ b/relational-join/src/Database/Relational/Query/Projection.hs
@@ -25,9 +25,10 @@ import Data.Array (Array, listArray)
 import qualified Data.Array as Array
 import Data.List (intercalate)
 
+import Database.Record
+  (PersistableWidth, persistableWidth, PersistableRecordWidth)
 import Database.Record.Persistable
-  (PersistableRecordWidth, runPersistableRecordWidth,
-   PersistableWidth, persistableWidth)
+  (runPersistableRecordWidth)
 
 import Database.Relational.Query.Pi (Pi)
 import qualified Database.Relational.Query.Pi as Pi