Generate load instructions.

robrix · robrix · commit e4470bcbccd4 · 2019-07-23T15:23:26.000-04:00
diff --git a/semantic-core/test/Generators.hs b/semantic-core/test/Generators.hs
@@ -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..=)
