blob: 539158fdb19f93efe059667d91eb38d8935e80de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
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
-- | Status of a module compilation to machine code
data HscStatus
-- | Nothing to do.
= HscNotGeneratingCode ModIface ModDetails
-- | Nothing to do because code already exists.
| HscUpToDate ModIface ModDetails
-- | Update boot file result.
| HscUpdateBoot ModIface ModDetails
-- | Generate signature file (backpack)
| HscUpdateSig ModIface ModDetails
-- | Recompile this module.
| HscRecomp
{ hscs_guts :: CgGuts
-- ^ Information for the code generator.
, hscs_mod_location :: !ModLocation
-- ^ Module info
, hscs_mod_details :: !ModDetails
, hscs_partial_iface :: !PartialModIface
-- ^ Partial interface
, hscs_old_iface_hash :: !(Maybe Fingerprint)
-- ^ Old interface hash for this compilation, if an old interface file
-- exists. Pass to `hscMaybeWriteIface` when writing the interface to
-- avoid updating the existing interface when the interface isn't
-- changed.
}
|