roc/crates/glue/tests/fixtures/union-without-padding/platform.roc
2022-07-24 11:57:01 -04:00

15 lines
479 B
Text

platform "test-platform"
requires {} { main : _ }
exposes []
packages {}
imports []
provides [mainForHost]
# This case is important to test because there's no padding
# after the largest variant, so the compiler adds an extra u8
# (rounded up to alignment, so an an extra 8 bytes) in which
# to store the discriminant. We have to generate glue code accordingly!
NonRecursive : [Foo Str, Bar I64, Blah I32, Baz]
mainForHost : NonRecursive
mainForHost = main