mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-26 13:29:12 +00:00
18 lines
395 B
Text
18 lines
395 B
Text
app "test"
|
|
imports [Json]
|
|
provides [main] to "./platform"
|
|
|
|
HelloWorld := {} has [Encoding {toEncoder}]
|
|
|
|
toEncoder = \@HelloWorld {} ->
|
|
Encode.custom \bytes, fmt ->
|
|
bytes
|
|
|> Encode.appendWith (Encode.string "Hello, World!\n") fmt
|
|
|
|
f =
|
|
when Str.fromUtf8 (Encode.toBytes (@HelloWorld {}) Json.toUtf8) is
|
|
Ok s -> s
|
|
_ -> "<bad>"
|
|
|
|
main = f
|
|
# ^ Str
|