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