@@ -53,7 +53,7 @@ import Flat as F
5353import qualified Data.Store
5454#endif
5555#ifdef USE_REL8
56−import Rel8 (DBType(..))
56+import Rel8 (DBType(..), DBEq(..))
5757#endif
5858
5959newtype Id t = Id { unId :: UUID }
@@ -65,7 +65,7 @@ newtype Id t = Id { unId :: UUID }
6565 , PG.ToField, PG.FromField
6666#endif
6767#ifdef USE_REL8
68− , DBType
68+ , DBType, DBEq
6969#endif
7070#endif
7171 , FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey
@@ -166,7 +166,7 @@ newtype IntId t = IntId Int64
166166 , Data.Store.Store
167167#endif
168168#ifdef USE_REL8
169− , DBType
169+ , DBType, DBEq
170170#endif
171171#endif
172172 , FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey
@@ -223,7 +223,7 @@ newtype Name t = Name { unName :: Text }
223223 , Data.Store.Store
224224#endif
225225#ifdef USE_REL8
226− , DBType
226+ , DBType, DBEq
227227#endif
228228#endif
229229 , FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey