{-# OPTIONS_GHC -Wno-orphans #-}

module Data.Vector.Primitive.Extra
  (module Data.Vector.Primitive
  )
where

import Data.Hashable
import Data.Vector.Primitive
import Data.Primitive.ByteArray

instance Hashable (Vector a) where
  hashWithSalt :: Int -> Vector a -> Int
hashWithSalt salt :: Int
salt (Vector off :: Int
off len :: Int
len (ByteArray ba :: ByteArray#
ba)) =
    ByteArray# -> Int -> Int -> Int -> Int
hashByteArrayWithSalt ByteArray#
ba Int
off Int
len Int
salt