mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-04 04:08:19 +00:00
9 lines
215 B
Text
9 lines
215 B
Text
app "test" provides [always] to "./platform"
|
|
|
|
Effect a := {} -> a
|
|
|
|
MockTask a err : Effect (Result a err)
|
|
|
|
always : a -> MockTask a *
|
|
always = \x -> @Effect (\{} -> Ok x)
|
|
#^^^^^^{-1} a -[[always(0)]]-> MockTask a *
|