aew

{
	"$schema": "https://vega.github.io/schema/vega/v3.0.json",
	"height": 400,
	"padding": 5,

	"signals": [{
			"name": "chartWidth",
			"value": 300
		},
		{

aew

[{:operation-definitions
  [{:section :operation-definitions,
    :operation-type {:type "query"},
    :selection-set
    [{:node-type :field,
      :field-name "user",
      :arguments
      [{:node-type :argument, :argument-name "id", :value 4}],
      :selection-set
      [{:node-type :field, :field-name "id"}

aew

[{:type-system-definitions
  [{:node-type :type-definition,
    :type-name "Person",
    :section :type-system-definitions,
    :fields
    [{:node-type :type-field, :field-name "name", :type-name "String"}
     {:node-type :type-field, :field-name "age", :type-name "Int"}
     {:node-type :type-field,
      :field-name "picture",
      :type-name "Url"}],

aew

[{:operation-definitions
  ({:type :operation-definition,
    :operation-type {:type "query"},
    :selection-set
    [{:selection
      {:field
       {:name "user",
        :arguments {"id" {:value 4}},
        :selection-set
        [{:selection {:field {:name "id"}}}

aew

[{:operation-definitions (),
  :type-system-definitions
  ({:type-system-type :type,
    :type-name "Person",
    :fields
    {"name" {:type-name "String"},
     "age" {:type-name "Int"},
     "picture" {:type-name "Url"}},
    :type :type-system-definition,
    :kind :OBJECT}),

aew

(def billing-violations [negative-entries small-minimum-payment prepaid-mutual])

(def loss-violations [credit-loss pre-loss])

(def general-violations [minimum-payment-mutual])

(defn all-violations [balances]
  (concat billing-violations loss-violations general-violations))

(s/defn fixing-invariants :- [Entry] [initial-balances :- Balances, new-entries :- [Entry]]