{-# LANGUAGE TemplateHaskell #-}
module Rattletrap.Type.RemoteId
( RemoteId(..)
)
where
import Rattletrap.Type.Common
import Rattletrap.Type.Str
import Rattletrap.Type.Word64le
data RemoteId
= RemoteIdPlayStation Text [Word8]
| RemoteIdPsyNet (Either Word64le (Word64le, Word64le, Word64le, Word64le))
| RemoteIdSplitscreen Word32
| RemoteIdSteam Word64le
| RemoteIdSwitch Word64le Word64le Word64le Word64le
| RemoteIdXbox Word64le
| RemoteIdEpic Str
deriving (Eq, Ord, Show)
$(deriveJson ''RemoteId)