roc/crates/glue/tests/fixtures/advanced-recursive-union/platform.roc
2022-07-24 10:25:24 -04:00

26 lines
577 B
Text

platform "test-platform"
requires {} { main : _ }
exposes []
packages {}
imports []
provides [mainForHost]
Tool : [
SystemTool { name : Str, num : U32 },
FromJob { job : Job, num : U32 }
]
Command : [Command { tool : Tool }]
Job : [
Job { command : Command, inputFiles : List Str },
Foo Str,
# TODO make a recursive tag union test that doesn't try to do mutual recursion,
# just so I can get a PR up.
# WithTool Tool # Mutual recursion; Tool also references Job
]
Rbt : { default: Job }
mainForHost : Rbt
mainForHost = main