diff --git a/src/Category.hs b/src/Category.hs index 1f6467796..10503f3b4 100644 --- a/src/Category.hs +++ b/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. diff --git a/src/Split.hs b/src/Split.hs index dc8f9f6f5..342360715 100644 --- a/src/Split.hs +++ b/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