GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-17 13:01:31 +03:00
Code Issues Projects Releases Wiki Activity

Add comments

Browse Source
This commit is contained in:
Iavor Diatchki 2017-10-16 14:05:46 -07:00
parent 6ba8849216
commit a85ff3a54b
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Cryptol/TypeCheck/InferTypes.hs
View File

@ -46,13 +46,17 @@ data SolverConfig = SolverConfig
} deriving (Show, Generic, NFData) } deriving (Show, Generic, NFData)
-- | The types of variables in the environment. -- | The types of variables in the environment.
data VarType = ExtVar Schema -- ^ Known type data VarType = ExtVar Schema
| CurSCC Expr Type -- ^ Part of current SCC -- ^ Known type
-- XXX: Temporary, until we figure out: | CurSCC {- LAZY -} Expr Type
-- 1. How to apply substitutions with normalization to the type Map {- ^ Part of current SCC. The expression will replace the
-- 2. What are the strictness requirements variable, after we are done with the SCC. In this way a
-- (e.g., using Set results in a black hole) variable that gets generalized is replaced with an approproate
instantiations of itslef. -}
-- XXX: Temporary, until we figure out, how to apply substitutions
-- with normalization to the type Map
newtype Goals = Goals (Set Goal) -- Goals (TypeMap Goal) newtype Goals = Goals (Set Goal) -- Goals (TypeMap Goal)
deriving (Show) deriving (Show)