-----------------------------------------------------------------------------------

groestl224 :: Int64 -> L.ByteString -> L.ByteString
groestl224 dataBitLen 
    | dataBitLen < 0 = error "The data length can not be less than 0"
    | otherwise = truncate G224 . outputTransformation . foldl' f512 h0_224 . parseMessage dataBitLen 512
groestl224 :: Int64 -> L.ByteString -> L.ByteString
groestl224 dataBitLen 
    | dataBitLen < 0 = error "The data length can not be less than 0"
    | otherwise = truncate G224 . outputTransformation . foldl' f512 h0_224 . parseMessage dataBitLen 512
groestl224 dataBitLen 
    | dataBitLen < 0 = error "The data length can not be less than 0"
    | otherwise = truncate G224 . outputTransformation . foldl' f512 h0_224 . parseMessage dataBitLen 512