Merge pull request #3 from robashton/master

iolist_size

Author: nwolverson

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).

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