From 629792f36baaaddaeb8ce654760ca4392a571cc5 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Sun, 17 Aug 2014 21:10:43 -0500
Subject: start of moving to splitting state from config parsing

---
 src/rebar_lock.erl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/rebar_lock.erl

(limited to 'src/rebar_lock.erl')

diff --git a/src/rebar_lock.erl b/src/rebar_lock.erl
new file mode 100644
index 0000000..a973ccc
--- /dev/null
+++ b/src/rebar_lock.erl
@@ -0,0 +1,13 @@
+-module(rebar_lock).
+
+-export([update/3]).
+
+create(State) ->
+    LockDeps = [],
+    ok = file:write_file("./rebar.lock", io_lib:format("~p.~n", [LockDeps])).
+
+update(State, App, Source) ->
+    New = rebar_fetch:new(rebar_app_info:dir(App), rebar_app_info:name(App), rebar_app_info:original_vsn(App), Source),
+    {ok, [Terms]} = file:consult("./rebar.lock"),
+    LockDeps = lists:keyreplace(rebar_app_info:name(App), 1, Terms, New),
+    ok = file:write_file("./rebar.lock", io_lib:format("~p.~n", [LockDeps])).
-- 
cgit v1.1