Add a Pair constructor.

src/Category.hs

@@ -12,6 +12,8 @@ data Category =
   BinaryOperator
   -- | A literal key-value data structure.
   | DictionaryLiteral
+  -- | A pair, e.g. of a key & value
+  | Pair
   -- | A call to a function.
   | FunctionCall
   -- | A non-standard category, which can be used for comparability.

src/Split.hs

@@ -39,6 +39,7 @@ styleName :: Category -> String
 styleName category = "category-" ++ case category of
   BinaryOperator -> "binary-operator"
   DictionaryLiteral -> "dictionary"
+  Pair -> "pair"
   FunctionCall -> "function_call"
   Other string -> string