FlattenMembersOptional2.yqls 1.0 KB

1234567891011121314151617181920212223242526272829
  1. (
  2. (let config (DataSource 'config))
  3. (let res_sink (DataSink 'result))
  4. (let value (AsStruct '('a (Int8 '1)) '('b (Just (String 'str))) '('c '((Int32 '2) (Int64 '3)))))
  5. (let flattenMembersResult (FlattenMembers '('"" (Just value))))
  6. (let world (Write! world res_sink (Key) flattenMembersResult '('('type))))
  7. (let value (Nothing (TypeOf (Just value))))
  8. (let flattenMembersResult (FlattenMembers '('"x" value)))
  9. (let world (Write! world res_sink (Key) flattenMembersResult '('('type))))
  10. (let value (AsStruct))
  11. (let flattenMembersResult (FlattenMembers '('"x" value)))
  12. (let world (Write! world res_sink (Key) flattenMembersResult '('('type))))
  13. (let value (Just (AsStruct)))
  14. (let flattenMembersResult (FlattenMembers '('"" value)))
  15. (let world (Write! world res_sink (Key) flattenMembersResult '('('type))))
  16. (let value (Nothing (TypeOf value)))
  17. (let flattenMembersResult (FlattenMembers '('"x" value)))
  18. (let world (Write! world res_sink (Key) flattenMembersResult '('('type))))
  19. (let world (Commit! world res_sink))
  20. (return world)
  21. )