-- | Build a string surround by parentheses.
parens :: Builder -> Builder
parens = (singleton '(' <>) . (<> singleton ')')
parens :: Builder -> Builder
parens = (singleton '(' <>) . (<> singleton ')')
parens = (singleton '(' <>) . (<> singleton ')')