module Language.JVM.Attribute.BootstrapMethods
( BootstrapMethods (..)
, methods
, BootstrapMethod (..)
, arguments
) where
import GHC.Generics (Generic)
import Data.Binary
import Language.JVM.Constant (ConstantRef (..))
import Language.JVM.Utils
data BootstrapMethods = BootstrapMethods
{ methods' :: SizedList16 BootstrapMethod
} deriving (Show, Eq, Generic)
instance Binary BootstrapMethods where
methods :: BootstrapMethods -> [ BootstrapMethod ]
methods = unSizedList . methods'
data BootstrapMethod = BootstrapMethod
{ methodIndex :: ConstantRef
, arguments' :: SizedList16 ConstantRef
} deriving (Show, Eq, Generic)
arguments :: BootstrapMethod -> [ ConstantRef ]
arguments = unSizedList . arguments'
instance Binary BootstrapMethod where