diff --git a/src/IPS/Parse.hs b/src/IPS/Parse.hs index 228fe76..4088bb3 100644 --- a/src/IPS/Parse.hs +++ b/src/IPS/Parse.hs @@ -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