rename a variable

2021-05-07 14:14:01 +02:00 · 2021-05-07 14:14:01 +02:00 · fff25999c9
parent b8412f8e52
commit fff25999c9
1 changed files with 3 additions and 3 deletions
--- 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