Support typed root lists

src/ejson.erl

@@ -95,8 +95,9 @@ from_json_modules(Binary, ModuleList) ->
     from_json(Binary, Rules, Opts).
 
 from_json_modules(Binary, ModuleList, Record) ->
-    Opts = json_rules(ModuleList),
-    from_json(Binary, Opts, Record).
+    Rules = json_rules(ModuleList),
+    Opts = json_opts(ModuleList),
+    from_json(Binary, Record, Rules, Opts).
 
 from_json(Binary, Rules, Opts) ->
     Decoded = jsx:decode(Binary),

src/ejson_decode.erl

@@ -28,6 +28,24 @@
 %% information about the target type (__rec or so).
 %% @end
 %%-----------------------------------------------------------------------------
+decode([H | _] = List, RecordName, Rules, Opts) when is_list(H) ->
+    R = lists:foldl(
+          fun(AttrList, Acc) when is_list(Acc) ->
+                  case decode1(AttrList, RecordName, Rules, Opts) of
+                      {error, _} = E ->
+                          E;
+                      Record ->
+                          [Record | Acc]
+                  end;
+             (_, {error, _} = E) ->
+                  E
+          end, [], List),
+    case R of
+        _ when is_list(R) ->
+            lists:reverse(R);
+        _ ->
+            R
+    end;
 decode(AttrList, RecordName, Rules, Opts) ->
     case decode1(AttrList, RecordName, Rules, Opts) of
         {error, _} = Error ->