Merge pull request #3 from robashton/master

iolist_size
purerl · Apr 16, 2021 · c9d899c · c9d899c
2 parents 9155275 + 63eb857
commit c9d899c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/Erl/Data/Binary/IOList.erl b/src/Erl/Data/Binary/IOList.erl
@@ -1,9 +1,11 @@
 -module(erl_data_binary_iOList@foreign).
--export([mempty_/0, append_/2, concat/1, toBinary/1, fromBinary/1]).
+-export([mempty_/0, append_/2, concat/1, toBinary/1, fromBinary/1, byteSize/1]).
 
 mempty_() -> [].
 append_(X,Y) -> [X,Y].
 concat(Xs) -> Xs.
 
 fromBinary(X) -> [X].
 toBinary(X) -> erlang:iolist_to_binary(X).
+
+byteSize(X) -> iolist_size(X).
diff --git a/src/Erl/Data/Binary/IOList.purs b/src/Erl/Data/Binary/IOList.purs
@@ -1,5 +1,5 @@
 -- | Representation of Erlang iolist().
-module Erl.Data.Binary.IOList (IOList, concat, fromBinary, toBinary) where
+module Erl.Data.Binary.IOList (IOList, concat, fromBinary, toBinary, byteSize) where
 
 import Prelude
 import Erl.Data.Binary.Type (Binary)
@@ -26,3 +26,5 @@ foreign import fromBinary :: Binary -> IOList
 -- | Collapse an IOList to a Binary
 foreign import toBinary :: IOList -> Binary
 
+-- | Calls iolist_size 
+foreign import byteSize :: IOList -> Int