Name.hs

module Ref.Stable.Name where

type Ref = StableName#

new :: a -> IO (Ref a)
new = makeStableName#
eq :: Ref a -> Ref a -> B
eq = eqStableName#
toInt :: Ref a -> I64
toInt = stableNameToInt#