rattletrap-9.3.2: src/lib/Rattletrap/Decode/TitleAttribute.hs

module Rattletrap.Decode.TitleAttribute
  ( decodeTitleAttributeBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Decode.Word32le
import Rattletrap.Type.TitleAttribute

decodeTitleAttributeBits :: DecodeBits TitleAttribute
decodeTitleAttributeBits =
  TitleAttribute
    <$> getBool
    <*> getBool
    <*> decodeWord32leBits
    <*> decodeWord32leBits
    <*> decodeWord32leBits
    <*> decodeWord32leBits
    <*> decodeWord32leBits
    <*> getBool