module Data.HashTable.ST.Swiss.Instance where


import           Data.HashTable.Class
import           Data.HashTable.IO       (IOHashTable)
import qualified Data.HashTable.ST.Swiss as S

instance HashTable S.Table where
    new             = S.new
    newSized        = S.newSized
    insert          = S.insert
    delete          = S.delete
    lookup          = S.lookup
    foldM           = S.foldM
    mapM_           = S.mapM_
    lookupIndex     = error "not implemented"
    nextByIndex     = error "not implemented"
    computeOverhead = error "not implemented"
    mutate          = S.mutate
    mutateST        = S.mutateST

type SwissHashTable k v = IOHashTable S.Table k v