signature Data.Digest.Adler32 ( Adler32 (..)
                              ) where

import           Data.ByteString      as BS
import qualified Data.ByteString.Lazy as BSL
import           Data.Word            (Word32)

class Adler32 a where
    adler32 :: a -> Word32

    adler32Update :: Word32 -> a -> Word32

instance Adler32 BS.ByteString
instance Adler32 BSL.ByteString