-- | Build a quoted string.
quote :: Builder -> Builder
quote = (singleton '"' <>) . (<> singleton '"')
quote :: Builder -> Builder
quote = (singleton '"' <>) . (<> singleton '"')
quote = (singleton '"' <>) . (<> singleton '"')