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

feat: show Magic

Browse source
This commit is contained in:
vegowotenks 2025-08-20 16:49:06 +02:00
parent 547187e428
commit 831d7a5787
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Language/Java/Classfile/Magic.hs
View file

@ -6,6 +6,7 @@
{-# LANGUAGE StandaloneKindSignatures #-} {-# LANGUAGE StandaloneKindSignatures #-}
{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-} {-# LANGUAGE GADTs #-}
{-# LANGUAGE StandaloneDeriving #-}
module Language.Java.Classfile.Magic (Magic(..)) where module Language.Java.Classfile.Magic (Magic(..)) where
import Data.Word (Word32) import Data.Word (Word32)
import Language.Java.Classfile.Extractable (Extractable, extract, expectConstant) import Language.Java.Classfile.Extractable (Extractable, extract, expectConstant)
@ -21,6 +22,8 @@ data Magic stage where
Magic :: Hex Word32 -> Magic Parse Magic :: Hex Word32 -> Magic Parse
Cafebabe :: Magic Resolve Cafebabe :: Magic Resolve
deriving instance Show (Magic stage)
instance Extractable (Magic Parse) where instance Extractable (Magic Parse) where
extract :: Extract (Magic Parse) extract :: Extract (Magic Parse)
extract = Magic . Hex <$> expectConstant 0xCAFEBABE extract = Magic . Hex <$> expectConstant 0xCAFEBABE