module TextShow.GHC.Fingerprint () where
import Data.Monoid.Compat ((<>))
import Data.Semigroup (mtimesDefault)
import Data.Text.Lazy.Builder (Builder, singleton)
import Data.Word (Word64)
import GHC.Fingerprint.Type (Fingerprint(..))
import TextShow.Classes (TextShow(..))
import TextShow.Data.Integral (showbHex)
import TextShow.Utils (lengthB)
instance TextShow Fingerprint where
showb (Fingerprint w1 w2) = hex16 w1 <> hex16 w2
where
hex16 :: Word64 -> Builder
hex16 i = let hex = showbHex i
in mtimesDefault (max 0 $ 16 lengthB hex) (singleton '0') <> hex