type RelayURL = Text

data Tag
    = ETag (EventId, RelayURL)
    | PTag (XOnlyPubKey, RelayURL)
    deriving (Eq, Show)

-- note: I have FromJSON for EventId and XOnlyPubKey already, they are hex-encoded in the json value