roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-11-11 05:34:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

use new hosted module for benchmarks example

Browse Source
This commit is contained in:
Folkert 2022-02-03 22:02:18 +01:00
parent a32e0bbd4c
commit db2d437d78
4 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/benchmarks/platform/Effect.roc Normal file
View File

@ -0,0 +1,10 @@
hosted Effect
exposes [ Effect, after, map, always, forever, loop, putLine, putInt, getInt ]
imports []
generates Effect with [ after, map, always, forever, loop ]
putLine : Str -> Effect {}
putInt : I64 -> Effect {}
getInt : Effect { value : I64, errorCode : [ A, B ], isError : Bool }

7
examples/benchmarks/platform/Package-Config.roc
View File

@ -4,12 +4,7 @@ platform "folkertdev/foo"
packages {}
imports [ Task.{ Task } ]
provides [ mainForHost ]
effects fx.Effect
{
putLine : Str -> Effect {},
putInt : I64 -> Effect {},
getInt : Effect { value : I64, errorCode : [ A, B ], isError : Bool }
}
effects fx.Unused {}
mainForHost : Task {} [] as Fx
mainForHost = main

2
examples/benchmarks/platform/Task.roc
View File

@ -1,6 +1,6 @@
interface Task
exposes [ Task, succeed, fail, after, map, putLine, putInt, getInt, forever, loop ]
imports [ fx.Effect ]
imports [ pf.Effect ]
Task ok err : Effect.Effect (Result ok err)

2
examples/effect/thing/platform-dir/Package-Config.roc
View File

@ -4,7 +4,7 @@ platform "folkertdev/foo"
packages {}
imports [ pf.Effect ]
provides [ mainForHost ]
effects fx.Unused { }
effects fx.Unused {}
mainForHost : Effect.Effect {} as Fx
mainForHost = main