make config file errors more understandable to the user

Signed-off-by: Jordan Wilberding <[email protected]>
erlware · Oct 30, 2012 · 89e5d70 · 89e5d70
1 parent 92dcabc
commit 89e5d70
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/rcl_prv_config.erl b/src/rcl_prv_config.erl
@@ -33,8 +33,9 @@ do(State) ->
     lists:foldl(fun load_config/2, {ok, State}, ConfigFiles).
 
 -spec format_error(Reason::term()) -> iolist().
-format_error({consult, Reason}) ->
-    file:format_error(Reason);
+format_error({consult, ConfigFile, Reason}) ->
+        io_lib:format("Unable to read file ~s: ~s", [ConfigFile,
+                                                     file:format_error(Reason)]);
 format_error({invalid_term, Term}) ->
     io_lib:format("Invalid term in config file: ~p", [Term]).
 
@@ -50,7 +51,7 @@ load_config(ConfigFile, {ok, State}) ->
     ok = file:set_cwd(filename:dirname(ConfigFile)),
     Result = case file:consult(ConfigFile) of
                  {error, Reason} ->
-                     ?RCL_ERROR({consult, Reason});
+                     ?RCL_ERROR({consult, ConfigFile, Reason});
                  {ok, Terms} ->
                      lists:foldl(fun load_terms/2, {ok, State}, Terms)
              end,