{-# LINE 1 "compiler/utils/Fingerprint.hsc" #-}
{-# LANGUAGE CPP #-}
{-# LINE 2 "compiler/utils/Fingerprint.hsc" #-}
module Fingerprint (
Fingerprint(..), fingerprint0,
readHexFingerprint,
fingerprintData,
fingerprintString,
getFileHash
) where
{-# LINE 23 "compiler/utils/Fingerprint.hsc" #-}
#include "HsVersions.h"
import Numeric ( readHex )
import GHC.Fingerprint
readHexFingerprint :: String -> Fingerprint
readHexFingerprint s = Fingerprint w1 w2
where (s1,s2) = splitAt 16 s
[(w1,"")] = readHex s1
[(w2,"")] = readHex (take 16 s2)