newtype Unique = Unique Integer deriving (Eq,Ord)
uniqSource :: MVar Integer
uniqSource = unsafePerformIO (newMVar 0)
{-# NOINLINE uniqSource #-}
newtype Unique = Unique Integer deriving (Eq,Ord)
uniqSource :: MVar Integer
uniqSource = unsafePerformIO (newMVar 0)
{-# NOINLINE uniqSource #-}