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.2 +version: 0.0.0.3 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.2 + tag: bytable-0.0.0.3 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 @@ -2,6 +2,7 @@ module Codec.Bytable ( Bytable(..), + Parsable(..), BytableM(..), evalBytableM, execBytableM, head, take, null, list, ) where @@ -42,6 +43,9 @@ instance Bytable BS.ByteString where fromByteString = Right toByteString = id + +class Parsable p where + parse :: BytableM p head :: BytableM Word8 head = BytableM $ \bs -> case BS.uncons bs of