module Rattletrap.Decode.ClassMapping ( decodeClassMapping ) where import Rattletrap.Decode.Common import Rattletrap.Decode.Str import Rattletrap.Decode.Word32le import Rattletrap.Type.ClassMapping decodeClassMapping :: Decode ClassMapping decodeClassMapping :: Decode ClassMapping decodeClassMapping = Str -> Word32le -> ClassMapping ClassMapping (Str -> Word32le -> ClassMapping) -> Get Str -> Get (Word32le -> ClassMapping) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> Get Str decodeStr Get (Word32le -> ClassMapping) -> Get Word32le -> Decode ClassMapping forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b <*> Get Word32le decodeWord32le