Update for Gleam v0.30.0

src/gleam/otp/actor.gleam

@@ -249,8 +249,8 @@ fn selecting_system_messages(
   )
 }
 
-external fn convert_system_message(Dynamic, Dynamic) -> Message(msg) =
-  "gleam_otp_external" "convert_system_message"
+@external(erlang, "gleam_otp_external", "convert_system_message")
+fn convert_system_message(a: Dynamic, b: Dynamic) -> Message(msg)
 
 fn process_status_info(self: Self(state, msg)) -> StatusInfo {
   StatusInfo(
@@ -301,8 +301,8 @@ fn loop(self: Self(state, msg)) -> ExitReason {
 }
 
 // TODO: replace this when we have Gleam bindings to the logger
-external fn log_warning(Charlist, List(Charlist)) -> Nil =
-  "logger" "warning"
+@external(erlang, "logger", "warning")
+fn log_warning(a: Charlist, b: List(Charlist)) -> Nil
 
 fn initialise_actor(
   spec: Spec(state, msg),

src/gleam/otp/intensity_tracker.gleam

@@ -16,8 +16,8 @@ pub fn new(limit limit: Int, period period: Int) -> IntensityTracker {
   IntensityTracker(limit: limit, period: period, events: [])
 }
 
-external fn monotonic_time(Int) -> Int =
-  "erlang" "monotonic_time"
+@external(erlang, "erlang", "monotonic_time")
+fn monotonic_time(a: Int) -> Int
 
 fn now_seconds() -> Int {
   monotonic_time(1)

src/gleam/otp/node.gleam

@@ -1 +1 @@
-pub external type Node
+pub type Node

src/gleam/otp/port.gleam

@@ -6,4 +6,4 @@
 ///
 /// [1]: https://erlang.org/doc/reference_manual/ports.html
 ///
-pub external type Port
+pub type Port

src/gleam/otp/supervisor.gleam

@@ -380,10 +380,10 @@ pub type ApplicationStartMode {
   Failover(Node)
 }
 
-pub external type ApplicationStop
+pub type ApplicationStop
 
-pub external fn application_stopped() -> ApplicationStop =
-  "gleam_otp_external" "application_stopped"
+@external(erlang, "gleam_otp_external", "application_stopped")
+pub fn application_stopped() -> ApplicationStop
 
 /// The result of starting a Gleam actor.
 ///

src/gleam/otp/system.gleam

@@ -11,10 +11,10 @@ pub type DebugOption {
   NoDebug
 }
 
-pub external type DebugState
+pub type DebugState
 
-pub external fn debug_state(List(DebugOption)) -> DebugState =
-  "sys" "debug_options"
+@external(erlang, "sys", "debug_options")
+pub fn debug_state(a: List(DebugOption)) -> DebugState
 
 pub type StatusInfo {
   StatusInfo(
@@ -46,7 +46,7 @@ pub type SystemMessage {
   GetStatus(fn(StatusInfo) -> Nil)
 }
 
-external type DoNotLeak
+type DoNotLeak
 
 /// Get the state of a given OTP compatible process. This function is only
 /// intended for debugging.
@@ -55,11 +55,11 @@ external type DoNotLeak
 ///
 /// [1]: https://erlang.org/doc/man/sys.html#get_state-1
 ///
-pub external fn get_state(from: Pid) -> Dynamic =
-  "sys" "get_state"
+@external(erlang, "sys", "get_state")
+pub fn get_state(from from: Pid) -> Dynamic
 
-external fn erl_suspend(Pid) -> DoNotLeak =
-  "sys" "suspend"
+@external(erlang, "sys", "suspend")
+fn erl_suspend(a: Pid) -> DoNotLeak
 
 /// Request an OTP compatible process to suspend, causing it to only handle
 /// system messages.
@@ -73,8 +73,8 @@ pub fn suspend(pid: Pid) -> Nil {
   Nil
 }
 
-external fn erl_resume(from: Pid) -> DoNotLeak =
-  "sys" "resume"
+@external(erlang, "sys", "resume")
+fn erl_resume(from from: Pid) -> DoNotLeak
 
 /// Request a suspended OTP compatible process to result, causing it to handle
 /// all messages rather than only system messages.

test/gleam/otp/actor_test.gleam

@@ -17,8 +17,8 @@ pub fn get_state_test() {
   |> should.equal(dynamic.from("Test state"))
 }
 
-external fn get_status(Pid) -> Dynamic =
-  "sys" "get_status"
+@external(erlang, "sys", "get_status")
+fn get_status(a: Pid) -> Dynamic
 
 pub fn get_status_test() {
   let assert Ok(subject) = actor.start(Nil, fn(_msg, state) { Continue(state) })
@@ -134,8 +134,8 @@ pub fn unexpected_message_handled_test() {
   |> should.equal(dynamic.from("Unexpected message 1"))
 }
 
-external fn raw_send(Pid, anything) -> anything =
-  "erlang" "send"
+@external(erlang, "erlang", "send")
+fn raw_send(a: Pid, b: anything) -> anything
 
-external fn logger_set_primary_config(Atom, Atom) -> Nil =
-  "logger" "set_primary_config"
+@external(erlang, "logger", "set_primary_config")
+fn logger_set_primary_config(a: Atom, b: Atom) -> Nil

test/gleam/otp/task_test.gleam

@@ -2,14 +2,14 @@ import gleeunit/should
 import gleam/otp/task.{Timeout}
 import gleam/erlang/process.{Pid}
 
-external fn flush() -> Nil =
-  "gleam_otp_test_external" "flush"
+@external(erlang, "gleam_otp_test_external", "flush")
+fn flush() -> Nil
 
-external fn get_message_queue_length(pid: Pid) -> Int =
-  "gleam_otp_test_external" "get_message_queue_length"
+@external(erlang, "gleam_otp_test_external", "get_message_queue_length")
+fn get_message_queue_length(pid pid: Pid) -> Int
 
-external fn sleep(Int) -> Nil =
-  "timer" "sleep"
+@external(erlang, "timer", "sleep")
+fn sleep(a: Int) -> Nil
 
 fn work(x) {
   fn() {