221V 1 year ago
parent
commit
37ab2a311b
2 changed files with 7 additions and 3 deletions
  1. 7 2
      src/rest.erl
  2. 0 1
      src/rest_sup.erl

+ 7 - 2
src/rest.erl

@@ -20,13 +20,18 @@ rest_record([{attribute, _, rest_record, RecordName} | _Forms]) -> RecordName;
 rest_record([_ | Forms]) -> rest_record(Forms).
 
 record_field({record_field, _, {atom, _, Field}   }) -> Field;
-record_field({record_field, _, {atom, _, Field}, _}) -> Field.
+record_field({record_field, _, {atom, _, Field}, _}) -> Field;
+record_field({typed_record_field, {record_field, _, {atom, _, Field}, _}, _}) -> Field.
 
 record_fields(RecordName, [{attribute, _, record, {RecordName, Fields}} | _Forms]) ->
     [record_field(Field) || Field <- Fields];
 record_fields(RecordName, [_ | Forms]) -> record_fields(RecordName, Forms).
 
-last_export_line(Exports) -> [{_, Line, _, _} | _] = lists:reverse(Exports), Line.
+last_export_line(Exports) ->
+  case lists:reverse(Exports) of
+    [{_, Line, _, _} | _] -> Line;
+    _ -> 0
+  end.
 
 generate({FunName, _Arity} = Fun, Record, Fields, Forms) ->
     Exports = lists:filter(fun({attribute, _, export, _}) -> true; (_) -> false end, Forms),

+ 0 - 1
src/rest_sup.erl

@@ -1,7 +1,6 @@
 -module(rest_sup).
 -behaviour(supervisor).
 -export([start_link/0, init/1]).
--compile([export_all, nowarn_export_all]).
 
 start_link() -> supervisor:start_link({local, ?MODULE}, ?MODULE, []).
 init([]) -> {ok, {{one_for_one, 5, 10}, []}}.