Fix #96: Remove old catch

Author: elbrujohalcon

rebar.config

@@ -11,11 +11,11 @@
 %% == Dependencies and plugins ==
 
 {project_plugins, [
-    {rebar3_hank, "~> 1.4.0"},
-    {rebar3_hex, "~> 7.0.7"},
-    {erlfmt, "~> 1.6.2"},
-    {rebar3_lint, "~> 3.1.0"},
-    {rebar3_ex_doc, "~> 0.2.20"}
+    {rebar3_hank, "~> 1.6.1"},
+    {rebar3_hex, "~> 7.1.0"},
+    {erlfmt, "~> 1.8.0"},
+    {rebar3_lint, "~> 4.2.3"},
+    {rebar3_ex_doc, "~> 0.2.31"}
 ]}.
 
 %% == Documentation ==

src/ktn_dodger.erl

@@ -380,22 +380,23 @@ extract_escript_header(_) ->
     no_header.
 
 parse_form(Parser, Ts, L1, NoFail, Opt) ->
-    case catch {ok, Parser(Ts, Opt)} of
-        {'EXIT', Term} ->
-            {error, io_error(L1, {unknown, Term}), L1};
-        {error, Term} ->
+    try Parser(Ts, Opt) of
+        F ->
+            {ok, F, L1}
+    catch
+        throw:{error, Term} ->
             IoErr = io_error(L1, Term),
             {error, IoErr, L1};
-        {parse_error, _IoErr} when NoFail ->
+        throw:{parse_error, _IoErr} when NoFail ->
             {ok,
              erl_syntax:set_pos(
                  erl_syntax:text(tokens_to_string(Ts)),
                  erl_anno:new(start_pos(Ts, L1))),
              L1};
-        {parse_error, IoErr} ->
+        throw:{parse_error, IoErr} ->
             {error, IoErr, L1};
-        {ok, F} ->
-            {ok, F, L1}
+        _:Term ->
+            {error, io_error(L1, {unknown, Term}), L1}
     end.
 
 io_error(L, Desc) ->