add Hashable1 instance

ekmett · Apr 12, 2023 · 7e546d2 · 7e546d2
1 parent 87824c0
commit 7e546d2
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Data/Vector/Instances.hs b/src/Data/Vector/Instances.hs
@@ -21,6 +21,9 @@ import Data.Semigroup
 #ifdef MIN_VERSION_hashable
 import Data.Hashable (Hashable(..))
 #endif
+#if MIN_VERSION_hashable(1,2,5)
+import Data.Hashable.Lifted (Hashable1(..))
+#endif
 import Data.Key
 import Data.Functor.Bind
 import Data.Functor.Extend
@@ -150,3 +153,9 @@ instance (Primitive.Prim a, Hashable a) => Hashable (Primitive.Vector a) where
   hashWithSalt salt = hashWithSalt salt . Primitive.toList
   {-# INLINE hashWithSalt #-}
 #endif
+
+#if MIN_VERSION_hashable(1,2,5)
+instance Hashable1 Vector where
+  liftHashWithSalt itemHashWithSalt salt = liftHashWithSalt itemHashWithSalt salt . Vector.toList
+  {-# INLINE liftHashWithSalt #-}
+#endif