Merge pull request #4 from id3as/master

Added byteSize for IOData

Author: nwolverson

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

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