module GHC.Unit.Module.Status
( HscStatus (..)
)
where
import GHC.Prelude
import GHC.Unit
import GHC.Unit.Module.ModGuts
import GHC.Unit.Module.ModIface
import GHC.Unit.Module.ModDetails
import GHC.Utils.Fingerprint
data HscStatus
= HscNotGeneratingCode ModIface ModDetails
| HscUpToDate ModIface ModDetails
| HscUpdateBoot ModIface ModDetails
| HscUpdateSig ModIface ModDetails
| HscRecomp
{ HscStatus -> CgGuts
hscs_guts :: CgGuts
, HscStatus -> ModLocation
hscs_mod_location :: !ModLocation
, HscStatus -> ModDetails
hscs_mod_details :: !ModDetails
, HscStatus -> PartialModIface
hscs_partial_iface :: !PartialModIface
, HscStatus -> Maybe Fingerprint
hscs_old_iface_hash :: !(Maybe Fingerprint)
}