Added byteSize for IOData

purerl · Apr 26, 2021 · d775be0 · d775be0
1 parent 63eb857
commit d775be0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/Erl/Data/Binary/IOData.erl b/src/Erl/Data/Binary/IOData.erl
@@ -1,5 +1,5 @@
 -module(erl_data_binary_iOData@foreign).
--export([mempty_/0, append_/2, concat/1, fromIOList/1, fromBinary/1, toBinary/1]).
+-export([mempty_/0, append_/2, concat/1, fromIOList/1, fromBinary/1, toBinary/1, byteSize/1]).
 
 mempty_() -> [].
 append_(X,Y) -> [X,Y].
@@ -8,4 +8,6 @@ concat(Xs) -> Xs.
 fromIOList(X) -> X.
 fromBinary(X) -> X.
 
-toBinary(X) -> erlang:iolist_to_binary(X).
+toBinary(X) -> erlang:iolist_to_binary(X).
+
+byteSize(X) -> iolist_size(X).
diff --git a/src/Erl/Data/Binary/IOData.purs b/src/Erl/Data/Binary/IOData.purs
@@ -29,4 +29,7 @@ foreign import fromBinary :: Binary -> IOData
 foreign import toBinary :: IOData -> Binary
 
 -- | Concatenate a list of IOData to an IOData. This is a no-op O(1).
-foreign import concat :: List IOData -> IOData
+foreign import concat :: List IOData -> IOData
+
+-- | Calls iolist_size
+foreign import byteSize :: IOData -> Int