rename a variable

This commit is contained in:
Rhiannon Morris 2021-05-07 14:14:01 +02:00
parent b8412f8e52
commit fff25999c9

View file

@ -28,12 +28,12 @@ parseBody = uncurry Vector.fromListN <$> go where
parseChunk :: Parser Chunk
parseChunk = do
offset <- parseWord24
size <- parseWord16
size <- parseWord16
body <-
if size == 0 then
if size == 0 then
liftA2 RLE parseWord16 Parse.anyWord8
else
Normal . makeBytes <$> Parse.take (fromIntegral size)
Normal . makeBytes <$> Parse.take (fromIntegral size)
pure $ Chunk {offset, body}
parseWord16 :: Parser Word16