Jack/compress
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

type signature cleanup

Browse source
This commit is contained in:
Jack Wines 2024-04-15 20:36:05 -07:00
parent 74b18d29a0
commit 6d00525334
No known key found for this signature in database
GPG key ID: 25B20640600571E6
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -89,13 +89,15 @@ testCompression _ bs =
. (compress :: BS.ByteString -> Maybe ([TreeDir], HuffmanTree a))
$ bs
encodeCompressed :: (C.Serialize a) => Maybe ([TreeDir], HuffmanTree a) -> (BS.ByteString)
encodeCompressed :: (C.Serialize a) => Maybe ([TreeDir], HuffmanTree a) -> BS.ByteString
encodeCompressed = C.encode . fmap (Bi.first encodeTreeDirs)
where
encodeTreeDirs = cloneToByteStringWithLen . V.fromList . map (BV.Bit . (== R))
cloneToByteStringWithLen :: V.Vector BV.Bit -> (BS.ByteString, Int)
cloneToByteStringWithLen vec = (BV.cloneToByteString vec, V.length vec)
cloneFromByteStringWithLen :: (BS.ByteString, Int) -> V.Vector BV.Bit
cloneFromByteStringWithLen (bs, len) = V.take len . BV.cloneFromByteString $ bs
decodeTreeDirs :: (BS.ByteString, Int) -> [TreeDir]