-- | Convert a 'Relation' to its textual representation.
encode :: Relation -> ByteString
encode = runPut . putRelation
encode :: Relation -> ByteString
encode = runPut . putRelation
encode = runPut . putRelation