home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 876 / hugs.sis / Stable.hs < prev    next >
Encoding:
Text File  |  2000-09-21  |  328 b   |  12 lines
  1. module Stable where 
  2.  
  3. data StableName a -- abstract
  4.  
  5. primitive makeStableName   :: a -> IO (StableName a)
  6. primitive deRefStableName  :: StableName a -> a
  7. primitive hashStableName   :: StableName a -> Int
  8. primitive eqStableName       :: StableName a -> StableName a -> Bool
  9.  
  10. instance Eq (StableName a) where
  11.     (==) = eqStableName
  12.