github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

Generate load instructions.

Browse Source
This commit is contained in:
Rob Rix 2019-07-23 15:23:26 -04:00
parent 0d530dc078
commit e4470bcbcc
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
semantic-core/test/Generators.hs
View File

@ -69,6 +69,7 @@ expr = Gen.recursive Gen.choice atoms
, lambda expr , lambda expr
, Gen.subterm2 expr expr (Core.$$) , Gen.subterm2 expr expr (Core.$$)
, Gen.subterm3 expr expr expr Core.if' , Gen.subterm3 expr expr expr Core.if'
, Gen.subterm expr Core.load
, record expr , record expr
, Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name) , Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name)
, Gen.subterm2 expr expr (Core..=) , Gen.subterm2 expr expr (Core..=)