From 69469611f1e089a29fa3a730b2d13bbf2b87b5bc Mon Sep 17 00:00:00 2001
From: Serge Aleynikov <saleyn@gmail.com>
Date: Wed, 18 Oct 2023 23:58:51 -0400
Subject: [PATCH] Export sema_nif type (#9)

---
 src/sema_nif.erl | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/sema_nif.erl b/src/sema_nif.erl
index 59269e0..805cecd 100644
--- a/src/sema_nif.erl
+++ b/src/sema_nif.erl
@@ -20,14 +20,26 @@
     release/3
 ]).
 
--export_type([sema_ref/0, acquire_ret/0, release_ret/0]).
-
 -on_load(init/0).
 
 -define(APPNAME, sema_nif).
 -define(LIBNAME, sema_nif).
 
--opaque sema_ref() :: reference().
+-type acquire_ret() ::
+    % process got resource unit, return number of units acquired so far
+    {ok, N :: pos_integer()}
+    % no resource units available
+    | {error, full}.
+
+-type release_ret() ::
+    % process freed resource unit, return number of units acquired after that
+    {ok, N :: pos_integer()}
+    % no process that holds resource found
+    | {error, not_found}.
+
+-type sema_ref() :: reference().
+
+-export_type([sema_ref/0, acquire_ret/0, release_ret/0]).
 
 -spec create(Max :: pos_integer()) -> sema_ref().
 create(_) -> not_loaded(?LINE).
@@ -44,12 +56,6 @@ create(_) -> not_loaded(?LINE).
     }.
 info(_) -> not_loaded(?LINE).
 
--type acquire_ret() ::
-    % process got resource unit, return number of units acquired so far
-    {ok, N :: pos_integer()}
-    % no resource units available
-    | {error, full}.
-
 % acquire resource unit for calling process, monitor process
 -spec acquire(Semaphore :: sema_ref()) -> Ret :: acquire_ret().
 acquire(_) -> not_loaded(?LINE).
@@ -58,12 +64,6 @@ acquire(_) -> not_loaded(?LINE).
 -spec acquire(Semaphore :: sema_ref(), Cnt :: pos_integer()) -> Ret :: acquire_ret().
 acquire(_, _) -> not_loaded(?LINE).
 
--type release_ret() ::
-    % process freed resource unit, return number of units acquired after that
-    {ok, N :: pos_integer()}
-    % no process that holds resource found
-    | {error, not_found}.
-
 % release resource unit acquired by calling process
 -spec release(Semaphore :: sema_ref()) -> Ret :: release_ret().
 release(_) -> not_loaded(?LINE).