From f2f294d8120f00423e20f47d364f515a47cba7ba Mon Sep 17 00:00:00 2001 From: Lev Walkin Date: Mon, 6 Aug 2012 22:12:01 +0400 Subject: Do not rewrite .app file if it didn't change --- src/rebar_file_utils.erl | 14 +++++++++++++- src/rebar_otp_app.erl | 2 +- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/src/rebar_file_utils.erl b/src/rebar_file_utils.erl index a3d9b58..fcd9c5e 100644 --- a/src/rebar_file_utils.erl +++ b/src/rebar_file_utils.erl @@ -29,7 +29,8 @@ -export([rm_rf/1, cp_r/2, mv/2, - delete_each/1]). + delete_each/1, + write_file_if_contents_differ/2]). -include("rebar.hrl"). @@ -111,6 +112,17 @@ delete_each([File | Rest]) -> ?FAIL end. +write_file_if_contents_differ(Filename, Bytes) -> + ToWrite = iolist_to_binary(Bytes), + case file:read_file(Filename) of + {ok, ToWrite} -> + ok; + {ok, _} -> + file:write_file(Filename, ToWrite); + {error, _} -> + file:write_file(Filename, ToWrite) + end. + %% =================================================================== %% Internal functions %% =================================================================== diff --git a/src/rebar_otp_app.erl b/src/rebar_otp_app.erl index 62befa1..a62f584 100644 --- a/src/rebar_otp_app.erl +++ b/src/rebar_otp_app.erl @@ -106,7 +106,7 @@ preprocess(Config, AppSrcFile) -> %% Setup file .app filename and write new contents AppFile = rebar_app_utils:app_src_to_app(AppSrcFile), - ok = file:write_file(AppFile, Spec), + ok = rebar_file_utils:write_file_if_contents_differ(AppFile, Spec), %% Make certain that the ebin/ directory is available %% on the code path -- cgit v1.1