diff --git a/bytable.cabal b/bytable.cabal --- a/bytable.cabal +++ b/bytable.cabal @@ -2,7 +2,7 @@ build-type: Simple name: bytable -version: 0.0.0.6 +version: 0.0.0.7 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -28,7 +28,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/forest - tag: bytable-0.0.0.6 + tag: bytable-0.0.0.7 library hs-source-dirs: src diff --git a/src/Codec/Bytable.hs b/src/Codec/Bytable.hs --- a/src/Codec/Bytable.hs +++ b/src/Codec/Bytable.hs @@ -4,7 +4,7 @@ Bytable(..), Parsable(..), BytableM(..), evalBytableM, execBytableM, - head, take, null, list, + head, take, null, list, addLength, ) where import Prelude hiding (take, head, null) @@ -72,3 +72,7 @@ lst = do e <- null if e then return [] else (:) <$> m <*> lst + +addLength :: (Bytable n, Num n) => n -> BS.ByteString -> BS.ByteString +addLength t bs = + toByteString (fromIntegral (BS.length bs) `asTypeOf` t) `BS.append` bs