mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 20:03:27 +03:00
Just documentation
This commit is contained in:
parent
60523d5986
commit
6018af3537
@ -45,19 +45,49 @@ import Prelude.Compat
|
||||
|
||||
-- Module Environment ----------------------------------------------------------
|
||||
|
||||
-- | This is the current state of the interpreter.
|
||||
data ModuleEnv = ModuleEnv
|
||||
{ meLoadedModules :: LoadedModules
|
||||
-- ^ Information about all loaded modules. See 'LoadedModule'.
|
||||
-- Contains information such as the file where the module was loaded
|
||||
-- from, as well as the module's interface, used for type checking.
|
||||
|
||||
, meNameSeeds :: T.NameSeeds
|
||||
, meEvalEnv :: EvalEnv
|
||||
, meFocusedModule :: Maybe ModName
|
||||
, meSearchPath :: [FilePath]
|
||||
, meDynEnv :: DynamicEnv
|
||||
, meMonoBinds :: !Bool
|
||||
-- ^ A source of new names for the type checker.
|
||||
|
||||
, meSolverConfig :: T.SolverConfig
|
||||
-- ^ Configuration settings for the SMT solver used for type-checking.
|
||||
|
||||
, meEvalEnv :: EvalEnv
|
||||
-- ^ The evaluation environment. Contains the values for all loaded
|
||||
-- modules, both public and private.
|
||||
|
||||
|
||||
, meCoreLint :: CoreLint
|
||||
-- ^ Should we run the linter to ensure snaity.
|
||||
|
||||
, meMonoBinds :: !Bool
|
||||
-- ^ Are we assuming that local bindings are monomorphic.
|
||||
-- XXX: We should probably remove this flag, and set it to 'True'.
|
||||
|
||||
|
||||
|
||||
, meFocusedModule :: Maybe ModName
|
||||
-- ^ The "current" module. Used to decide how to print names, for example.
|
||||
|
||||
, meSearchPath :: [FilePath]
|
||||
-- ^ Where we look for things.
|
||||
|
||||
, meDynEnv :: DynamicEnv
|
||||
-- ^ This contains additional definitions that were made at the command
|
||||
-- line, and so they don't reside in any module.
|
||||
|
||||
, meSupply :: !Supply
|
||||
-- ^ Name source for the renamer
|
||||
|
||||
} deriving (Generic, NFData)
|
||||
|
||||
-- | Should we run the linter?
|
||||
data CoreLint = NoCoreLint -- ^ Don't run core lint
|
||||
| CoreLint -- ^ Run core lint
|
||||
deriving (Generic, NFData)
|
||||
|
Loading…
Reference in New Issue
Block a user