Ticket #155: Hashtable.ds

import Data.Array

data Entry k v = Entry {
        key   :: k;
        value :: v
    }

data Hashtable k v = Hashtable {
        hash    :: k -> Int;
        entries :: Array (List (Entry k v))
    }

project Hashtable k v where
    new = hashtable_new
    lookup = hashtable_lookup
    insert = hashtable_insert
    delete = hashtable_delete

hashtable_new :: (k -> Int) -> Int -> Hashtable k v
hashtable_new hash capacity = Hashtable hash (new&{Array} capacity)

hashtable_lookup :: k -> Hashtable k v -> Maybe v
hashtable_lookup key ht = Nothing

hashtable_insert :: Hashtable k v -> k -> v -> ()
hashtable_insert ht k v = ()

hashtable_delete :: Hashtable k v -> k -> ()
hashtable_delete ht k = ()

main () = do
    --ht = new&{Hashtable} hash 100
    println "ok"

{-
[1 of 1] Compiling Hashtable
ddc: PANIC in Type.Squid.Class
        mergeClasses: classes have differing kinds
            cids = [720, 721]
            ks   = [*, * -> *]
        
        Please report this bug to the maintainers at:
            http://trac.haskell.org/ddc
            or by emailing disciple-cafe@googlegroups.com
-}