module Rattletrap.Type.PropertyValue
( PropertyValue(..)
) where
import Rattletrap.Type.Common
import Rattletrap.Type.Dictionary
import Rattletrap.Type.Float32le
import Rattletrap.Type.Int32le
import Rattletrap.Type.List
import Rattletrap.Type.Str
import Rattletrap.Type.Word64le
import Rattletrap.Type.Word8le
data PropertyValue a
= PropertyValueArray (List (Dictionary a))
| PropertyValueBool Word8le
| PropertyValueByte Str (Maybe Str)
| PropertyValueFloat Float32le
| PropertyValueInt Int32le
| PropertyValueName Str
| PropertyValueQWord Word64le
| PropertyValueStr Str
deriving (Eq, Ord, Show)
$(deriveJson ''PropertyValue)