rattletrap-4.0.7: library/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