mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-29 14:54:47 +00:00
Opaques take @ : %s/\$\([A-Z]\)/@\1/g
This commit is contained in:
Ayaz Hafiz
parent
e43994530f
commit
f1dc9c8298
20 changed files with 201 additions and 206 deletions
|
|
@ -23,9 +23,9 @@ fn hash_specialization() {
|
|||
|
||||
Id := U64
|
||||
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
main = hash ($Id 1234)
|
||||
main = hash (@Id 1234)
|
||||
"#
|
||||
),
|
||||
1234,
|
||||
|
|
@ -46,13 +46,13 @@ fn hash_specialization_multiple_add() {
|
|||
|
||||
Id := U64
|
||||
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
One := {}
|
||||
|
||||
hash = \$One _ -> 1
|
||||
hash = \@One _ -> 1
|
||||
|
||||
main = hash ($Id 1234) + hash ($One {})
|
||||
main = hash (@Id 1234) + hash (@One {})
|
||||
"#
|
||||
),
|
||||
1235,
|
||||
|
|
@ -73,11 +73,11 @@ fn alias_member_specialization() {
|
|||
|
||||
Id := U64
|
||||
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
main =
|
||||
aliasedHash = hash
|
||||
aliasedHash ($Id 1234)
|
||||
aliasedHash (@Id 1234)
|
||||
"#
|
||||
),
|
||||
1234,
|
||||
|
|
@ -100,9 +100,9 @@ fn ability_constrained_in_non_member_usage() {
|
|||
mulHashes = \x, y -> hash x * hash y
|
||||
|
||||
Id := U64
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
result = mulHashes ($Id 5) ($Id 7)
|
||||
result = mulHashes (@Id 5) (@Id 7)
|
||||
"#
|
||||
),
|
||||
35,
|
||||
|
|
@ -124,9 +124,9 @@ fn ability_constrained_in_non_member_usage_inferred() {
|
|||
mulHashes = \x, y -> hash x * hash y
|
||||
|
||||
Id := U64
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
result = mulHashes ($Id 5) ($Id 7)
|
||||
result = mulHashes (@Id 5) (@Id 7)
|
||||
"#
|
||||
),
|
||||
35,
|
||||
|
|
@ -149,12 +149,12 @@ fn ability_constrained_in_non_member_multiple_specializations() {
|
|||
mulHashes = \x, y -> hash x * hash y
|
||||
|
||||
Id := U64
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
Three := {}
|
||||
hash = \$Three _ -> 3
|
||||
hash = \@Three _ -> 3
|
||||
|
||||
result = mulHashes ($Id 100) ($Three {})
|
||||
result = mulHashes (@Id 100) (@Three {})
|
||||
"#
|
||||
),
|
||||
300,
|
||||
|
|
@ -176,12 +176,12 @@ fn ability_constrained_in_non_member_multiple_specializations_inferred() {
|
|||
mulHashes = \x, y -> hash x * hash y
|
||||
|
||||
Id := U64
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
Three := {}
|
||||
hash = \$Three _ -> 3
|
||||
hash = \@Three _ -> 3
|
||||
|
||||
result = mulHashes ($Id 100) ($Three {})
|
||||
result = mulHashes (@Id 100) (@Three {})
|
||||
"#
|
||||
),
|
||||
300,
|
||||
|
|
@ -204,12 +204,12 @@ fn ability_used_as_type_still_compiles() {
|
|||
mulHashes = \x, y -> hash x * hash y
|
||||
|
||||
Id := U64
|
||||
hash = \$Id n -> n
|
||||
hash = \@Id n -> n
|
||||
|
||||
Three := {}
|
||||
hash = \$Three _ -> 3
|
||||
hash = \@Three _ -> 3
|
||||
|
||||
result = mulHashes ($Id 100) ($Three {})
|
||||
result = mulHashes (@Id 100) (@Three {})
|
||||
"#
|
||||
),
|
||||
300,
|
||||
|
|
|
|||
|
|
@ -1137,10 +1137,10 @@ fn io_poc_effect() {
|
|||
Effect a := {} -> a
|
||||
|
||||
succeed : a -> Effect a
|
||||
succeed = \x -> $Effect \{} -> x
|
||||
succeed = \x -> @Effect \{} -> x
|
||||
|
||||
runEffect : Effect a -> a
|
||||
runEffect = \$Effect thunk -> thunk {}
|
||||
runEffect = \@Effect thunk -> thunk {}
|
||||
|
||||
foo : Effect F64
|
||||
foo =
|
||||
|
|
@ -1196,7 +1196,7 @@ fn return_wrapped_function_pointer() {
|
|||
Effect a := {} -> a
|
||||
|
||||
foo : Effect {}
|
||||
foo = $Effect \{} -> {}
|
||||
foo = @Effect \{} -> {}
|
||||
|
||||
main : Effect {}
|
||||
main = foo
|
||||
|
|
@ -1244,7 +1244,7 @@ fn return_wrapped_closure() {
|
|||
foo =
|
||||
x = 5
|
||||
|
||||
$Effect (\{} -> if x > 3 then {} else {})
|
||||
@Effect (\{} -> if x > 3 then {} else {})
|
||||
|
||||
main : Effect {}
|
||||
main = foo
|
||||
|
|
@ -1870,10 +1870,10 @@ fn task_always_twice() {
|
|||
effectAlways = \x ->
|
||||
inner = \{} -> x
|
||||
|
||||
$Effect inner
|
||||
@Effect inner
|
||||
|
||||
effectAfter : Effect a, (a -> Effect b) -> Effect b
|
||||
effectAfter = \($Effect thunk), transform -> transform (thunk {})
|
||||
effectAfter = \(@Effect thunk), transform -> transform (thunk {})
|
||||
|
||||
Task a err : Effect (Result a err)
|
||||
|
||||
|
|
@ -1918,7 +1918,7 @@ fn wildcard_rigid() {
|
|||
always = \x ->
|
||||
inner = \{} -> (Ok x)
|
||||
|
||||
$Effect inner
|
||||
@Effect inner
|
||||
|
||||
|
||||
main : Task {} (Float *)
|
||||
|
|
@ -1947,7 +1947,7 @@ fn alias_of_alias_with_type_arguments() {
|
|||
always = \x ->
|
||||
inner = (Ok x)
|
||||
|
||||
$Effect inner
|
||||
@Effect inner
|
||||
|
||||
|
||||
main : Task {} (Float *)
|
||||
|
|
@ -1975,10 +1975,10 @@ fn todo_bad_error_message() {
|
|||
effectAlways = \x ->
|
||||
inner = \{} -> x
|
||||
|
||||
$Effect inner
|
||||
@Effect inner
|
||||
|
||||
effectAfter : Effect a, (a -> Effect b) -> Effect b
|
||||
effectAfter = \($Effect thunk), transform -> transform (thunk {})
|
||||
effectAfter = \(@Effect thunk), transform -> transform (thunk {})
|
||||
|
||||
Task a err : Effect (Result a err)
|
||||
|
||||
|
|
@ -3111,7 +3111,7 @@ fn nested_rigid_alias() {
|
|||
p2
|
||||
|
||||
main =
|
||||
when foo ($Identity "foo") is
|
||||
when foo (@Identity "foo") is
|
||||
_ -> "hello world"
|
||||
"#
|
||||
),
|
||||
|
|
@ -3225,13 +3225,13 @@ fn recursively_build_effect() {
|
|||
XEffect a := {} -> a
|
||||
|
||||
always : a -> XEffect a
|
||||
always = \x -> $XEffect (\{} -> x)
|
||||
always = \x -> @XEffect (\{} -> x)
|
||||
|
||||
after : XEffect a, (a -> XEffect b) -> XEffect b
|
||||
after = \($XEffect e), toB ->
|
||||
$XEffect \{} ->
|
||||
after = \(@XEffect e), toB ->
|
||||
@XEffect \{} ->
|
||||
when toB (e {}) is
|
||||
$XEffect e2 ->
|
||||
@XEffect e2 ->
|
||||
e2 {}
|
||||
"#
|
||||
),
|
||||
|
|
|
|||
|
|
@ -1058,7 +1058,7 @@ fn phantom_polymorphic() {
|
|||
World := {}
|
||||
|
||||
zero : Point World
|
||||
zero = Point ($World {}) 0 0
|
||||
zero = Point (@World {}) 0 0
|
||||
|
||||
add : Point a -> Point a
|
||||
add = \(Point c x y) -> (Point c x y)
|
||||
|
|
@ -1593,11 +1593,11 @@ fn opaque_assign_to_symbol() {
|
|||
|
||||
fromUtf8 : U8 -> Result Variable [ InvalidVariableUtf8 ]
|
||||
fromUtf8 = \char ->
|
||||
Ok ($Variable char)
|
||||
Ok (@Variable char)
|
||||
|
||||
out =
|
||||
when fromUtf8 98 is
|
||||
Ok ($Variable n) -> n
|
||||
Ok (@Variable n) -> n
|
||||
_ -> 1
|
||||
"#
|
||||
),
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue