From 489df8ecaf16ca7429eb15b31ffbe6f686f5b0d1 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordu.net>
Date: Thu, 6 Jul 2017 18:15:08 +0200
Subject: wip

---
 merge/src/merge_fetch_sup.erl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 merge/src/merge_fetch_sup.erl

(limited to 'merge/src/merge_fetch_sup.erl')

diff --git a/merge/src/merge_fetch_sup.erl b/merge/src/merge_fetch_sup.erl
new file mode 100644
index 0000000..6dd1735
--- /dev/null
+++ b/merge/src/merge_fetch_sup.erl
@@ -0,0 +1,29 @@
+%%% Copyright (c) 2017, NORDUnet A/S.
+%%% See LICENSE for licensing information.
+
+-module(merge_fetch_sup).
+-behaviour(supervisor).
+
+-export([start_link/1, init/1]).
+
+start_link(Args) ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, Args).
+
+init(StorageNodes) ->
+    lager:debug("starting with storage nodes: ~p", [StorageNodes]),
+    {ok,
+     {{one_for_all, 3, 10},
+      [
+       {merge_fetch_newentries_sup,
+        {merge_fetch_newentries_sup, start_link, [StorageNodes]},
+        transient, infinity, supervisor,
+        [merge_fetch_newentries_sup]},
+       {merge_fetch_ctrl,
+        {merge_fetch_ctrl, start_link, [StorageNodes]},
+        permanent, 10000, worker,
+        [merge_fetch_ctrl]},
+       {merge_fetch_fetch_sup,
+        {merge_fetch_fetch_sup, start_link, [StorageNodes]},
+        transient, infinity, supervisor,
+        [merge_fetch_fetch_sup]}
+      ]}}.
-- 
cgit v1.1