    module GHC.Types.SptEntry
      ( SptEntry(..)
      )
    where

    import GHC.Types.Var           ( Id )
    import GHC.Fingerprint.Type    ( Fingerprint )
    import GHC.Utils.Outputable

    -- | An entry to be inserted into a module's static pointer table.
    -- See Note [Grand plan for static forms] in "GHC.Iface.Tidy.StaticPtrTable".
    data SptEntry = SptEntry Id Fingerprint

    instance Outputable SptEntry where
      ppr :: SptEntry -> SDoc
    ppr (SptEntry Id
    id Fingerprint
    fpr) = Id -> SDoc
    forall a. Outputable a => a -> SDoc
    ppr Id
    id SDoc -> SDoc -> SDoc
    forall doc. IsLine doc => doc -> doc -> doc
    <> SDoc
    forall doc. IsLine doc => doc
    colon SDoc -> SDoc -> SDoc
    forall doc. IsLine doc => doc -> doc -> doc
    <+> Fingerprint -> SDoc
    forall a. Outputable a => a -> SDoc
    ppr Fingerprint
    fpr