Merge pull request #16 from hcs42/field_fun_json_term

(#15) Add "field_fun_json_term" field type
jonasrichard · Feb 19, 2015 · f92b9f9 · f92b9f9
2 parents 8be51d7 + fbeb9d0
commit f92b9f9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/ejson.erl b/src/ejson.erl
@@ -135,6 +135,9 @@ apply_rule({field_fun, Name, {M, F}}, _Record, Value, Options) ->
 apply_rule({rec_fun, Name, {M, F}}, Record, _Value, Options) ->
     Value2 = erlang:apply(M, F, [Record]),
     {Name, conv(Value2, Options)};
+apply_rule({field_fun_json_term, Name, {M, F}}, _Record, Value, _Options) ->
+    Value2 = erlang:apply(M, F, [Value]),
+    {Name, Value2};
 apply_rule({const, Name, Const}, _Record, _Value, Options) ->
     {Name, conv(Const, Options)};
 apply_rule(Name, _Record, Value, Options) ->