Movatterモバイル変換

{-# LANGUAGE Trustworthy #-}{-# LANGUAGE BangPatterns, CPP, GeneralizedNewtypeDeriving, MagicHash,  NoImplicitPrelude, UnboxedTuples #-}moduleGHC.Event.Unique(UniqueSource,Unique(..),newSource,newUnique)whereimportGHC.BaseimportGHC.Num(Num)importGHC.Show(Show(..))#include "MachDeps.h"dataUniqueSource=US(MutableByteArray#RealWorld)newtypeUnique=Unique{asInt::Int}deriving(Eq-- ^ @since 4.4.0.0,Ord-- ^ @since 4.4.0.0,Num-- ^ @since 4.4.0.0)-- | @since 4.3.1.0instanceShowUniquewhereshow=show.asIntnewSource::IOUniqueSourcenewSource=IO$\s->casenewByteArray#sizesof(#s',mba#)->(#s',USmba#)where!(I#size)=SIZEOF_HSINTnewUnique::UniqueSource->IOUniquenewUnique(USmba)=IO$\s->casefetchAddIntArray#mba0#1#sof(#s',a#)->(#s',Unique(I#a)#){-# INLINEnewUnique#-}