Movatterモバイル変換

{-# LANGUAGE Trustworthy #-}{-# LANGUAGE NoImplicitPrelude #-}-- --------------------------------------------------------------------------------  (c) The University of Glasgow 2006---- Fingerprints for recompilation checking and ABI versioning, and-- implementing fast comparison of Typeable.---- ----------------------------------------------------------------------------moduleGHC.Fingerprint.Type(Fingerprint(..))whereimportGHC.BaseimportGHC.List(length,replicate)importGHC.NumimportGHC.ShowimportGHC.WordimportNumeric(showHex)-- Using 128-bit MD5 fingerprints for now.dataFingerprint=Fingerprint{-# UNPACK#-}!Word64{-# UNPACK#-}!Word64deriving(Eq-- ^ @since 4.4.0.0,Ord-- ^ @since 4.4.0.0)-- | @since 4.7.0.0instanceShowFingerprintwhereshow(Fingerprintw1w2)=hex16w1++hex16w2where-- | Formats a 64 bit number as 16 digits hex.hex16::Word64->Stringhex16i=lethex=showHexi""inreplicate(16-lengthhex)'0'++hex