fix dreyfus after 'Improve nouveau mango integration'
dreyfus/clouseau needs "string" type when indexing, so
make a separate add_default_field_nouveau function
diff --git a/src/mango/src/mango_native_proc.erl b/src/mango/src/mango_native_proc.erl
index 7982fc7..41529a0 100644
--- a/src/mango/src/mango_native_proc.erl
+++ b/src/mango/src/mango_native_proc.erl
@@ -254,14 +254,23 @@
add_default_text_field([], Acc) ->
Acc;
add_default_text_field([{_Name, <<"string">>, Value} | Rest], Acc) ->
- NewAcc = [{<<"$default">>, <<"text">>, Value} | Acc],
- add_default_text_field(Rest, NewAcc);
-add_default_text_field([{_Name, <<"text">>, Value} | Rest], Acc) ->
- NewAcc = [{<<"$default">>, <<"text">>, Value} | Acc],
+ NewAcc = [{<<"$default">>, <<"string">>, Value} | Acc],
add_default_text_field(Rest, NewAcc);
add_default_text_field([_ | Rest], Acc) ->
add_default_text_field(Rest, Acc).
+add_default_text_field_nouveau(Fields) ->
+ DefaultFields = add_default_text_field_nouveau(Fields, []),
+ DefaultFields ++ Fields.
+
+add_default_text_field_nouveau([], Acc) ->
+ Acc;
+add_default_text_field_nouveau([{_Name, <<"string">>, Value} | Rest], Acc) ->
+ NewAcc = [{<<"$default">>, <<"text">>, Value} | Acc],
+ add_default_text_field_nouveau(Rest, NewAcc);
+add_default_text_field_nouveau([_ | Rest], Acc) ->
+ add_default_text_field_nouveau(Rest, Acc).
+
%% index of all field names
get_field_names(Fields) ->
FieldNameSet = lists:foldl(
@@ -345,7 +354,7 @@
Fields =
if
not DefaultEnabled -> Fields0;
- true -> add_default_text_field(Fields0)
+ true -> add_default_text_field_nouveau(Fields0)
end,
FieldNames0 = get_field_names(Fields),
FieldNames1 = lists:map(fun convert_to_nouveau_string_field/1, FieldNames0),
