vegowotenks/java-classfile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: Hopefully fixed the weird last ConstantPool entry

Browse source
This commit is contained in:
vegowotenks 2025-07-11 23:12:41 +02:00
parent 7da2a30cbb
commit 0f44368c35
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Language/Java/Classfile/Extractable.hs
View file

@ -65,8 +65,8 @@ instance (Extractable index, Extractable element, Ix index, Integral index) => E
extract :: Extract (Array index element)
extract = do
count <- extract
elements <- forM [1..fromIntegral count] $ \ i -> traceIndex i extract
pure $ listArray (1, count) elements
elements <- forM [1..fromIntegral count - 1] $ \ i -> traceIndex i extract
pure $ listArray (1, count - 1) elements
deriving via Generically () instance Extractable ()
deriving via Generically (a, b) instance (Extractable a, Extractable b) => Extractable (a, b)

1
src/Language/Java/Classfile/FromBigEndian.hs
View file

@ -3,7 +3,6 @@ module Language.Java.Classfile.FromBigEndian (FromBigEndian(fromBigEndian)) wher
import Data.Word (Word16, byteSwap16, Word32, byteSwap32)
import GHC.ByteOrder (ByteOrder(..))
import qualified GHC.ByteOrder as GHC
import Data.Int (Int32)
class FromBigEndian a where
fromBigEndian :: a -> a