mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
Generate load instructions.
This commit is contained in:
parent
0d530dc078
commit
e4470bcbcc
@ -69,6 +69,7 @@ expr = Gen.recursive Gen.choice atoms
|
||||
, lambda expr
|
||||
, Gen.subterm2 expr expr (Core.$$)
|
||||
, Gen.subterm3 expr expr expr Core.if'
|
||||
, Gen.subterm expr Core.load
|
||||
, record expr
|
||||
, Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name)
|
||||
, Gen.subterm2 expr expr (Core..=)
|
||||
|
Loading…
Reference in New Issue
Block a user