Release management

1 files changed, 29 insertions, 0 deletions

diff --git a/src/catlfish_app.erl b/src/catlfish_app.erl
new file mode 100644
index 0000000..f4b67ad
--- /dev/null
+++ b/src/catlfish_app.erl
@@ -0,0 +1,29 @@
+-module(catlfish_app).
+
+-behaviour(application).
+
+%% Application callbacks
+-export([start/2, stop/1]).
+
+%% ===================================================================
+%% Application callbacks
+%% ===================================================================
+
+dummy() ->
+    receive
+    after
+        infinity ->
+            none
+    end.
+
+start(_StartType, _StartArgs) ->
+    io:format("starting catlfish~n", []),
+    InetsResult = inets:start(httpd, [{proplist_file, "httpd_props.conf"}]),
+    io:format("catlfish: tried to start inets service:~p~n", [InetsResult]),
+    Pid = spawn(fun () ->
+                        dummy()
+                end),
+    {ok, Pid}.
+
+stop(_State) ->
+    ok.