fourmolu-0.7.0.0: data/examples/declaration/value/function/list-notation-1-four-out.hs

instance A.ToJSON UpdateTable where
    toJSON a =
        A.object $
            "TableName" .= updateTableName a
                : "ProvisionedThroughput" .= updateProvisionedThroughput a
                : case updateGlobalSecondaryIndexUpdates a of
                    [] -> []
                    l -> ["GlobalSecondaryIndexUpdates" .= l]