Skip to content

Instantly share code, notes, and snippets.

@hgiasac

hgiasac/typeable3.hs Secret

Created January 4, 2019 17:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hgiasac/c55f0f2c96c9cbfcb00bccba2a93ac7b to your computer and use it in GitHub Desktop.
Save hgiasac/c55f0f2c96c9cbfcb00bccba2a93ac7b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
typeable3.hs
newtype Key = Key Int deriving( Eq )
data KeyPr = KeyPr !Key !Key deriving( Eq )
data Cache = Cache { next_key :: !(IORef Key),
tc_tbl :: !(HT.HashTable String Key),
ap_tbl :: !(HT.HashTable KeyPr Key)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment