module Octane.Type.RemoteId.SteamId
( SteamId(..)
) where
import Data.Aeson ((.=))
import qualified Data.Aeson as Aeson
import qualified Data.Default.Class as Default
import qualified Data.OverloadedRecords.TH as OverloadedRecords
import qualified Data.Text as StrictText
import qualified Octane.Type.Word64 as Word64
newtype SteamId = SteamId
{ steamIdUnpack :: Word64.Word64
} deriving (Eq, Show)
$(OverloadedRecords.overloadedRecord Default.def ''SteamId)
instance Aeson.ToJSON SteamId where
toJSON steamId =
Aeson.object
["Type" .= ("Steam" :: StrictText.Text), "Value" .= #unpack steamId]