From 4a48f6820bd2ef841de148564f7c11de0bb96356 Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Tue, 28 Oct 2014 16:18:31 +0100 Subject: Can't use array:array() in R16. --- src/ts.erl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/ts.erl b/src/ts.erl index c69519c..44d27cc 100644 --- a/src/ts.erl +++ b/src/ts.erl @@ -11,7 +11,8 @@ %% #tree_store{} has one member, layers, holding an array of arrays %% with binaries, keyed on layer. --record(tree_store, {layers :: array:array(array:array(binary()))}). +%% TODO R17: -record(tree_store, {layers :: array:array(array:array(binary()))}). +-record(tree_store, {layers}). -type tree_store() :: #tree_store{}. %%%%%%%%%%%%%%%%%%%% @@ -46,16 +47,18 @@ count(#tree_store{layers = Layers}, Layer) -> %%%%%%%%%%%%%%%%%%%% %% Private. --spec layer_ro(array:array(array:array(binary())), non_neg_integer()) -> - array:array(binary). +%% TODO: R17 +%% -spec layer_ro(array:array(array:array(binary())), non_neg_integer()) -> +%% array:array(binary). layer_ro(Layers, Layer) -> case array:get(Layer, Layers) of undefined -> array:new(); Array -> Array end. --spec layer_rw(array:array(array:array(binary())), non_neg_integer()) -> - {array:array(), array:array(binary)}. +%% TODO: R17 +%% -spec layer_rw(array:array(array:array(binary())), non_neg_integer()) -> +%% {array:array(), array:array(binary)}. layer_rw(Layers, Layer) -> case array:get(Layer, Layers) of undefined -> {array:set(Layer, array:new(), Layers), array:new()}; -- cgit v1.1