From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Fri, 23 Feb 2024 07:08:18 +0100
Subject: wip

---
 learn-you-some-erlang/curling_feed.erl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 learn-you-some-erlang/curling_feed.erl

(limited to 'learn-you-some-erlang/curling_feed.erl')

diff --git a/learn-you-some-erlang/curling_feed.erl b/learn-you-some-erlang/curling_feed.erl
new file mode 100644
index 0000000..b1b789a
--- /dev/null
+++ b/learn-you-some-erlang/curling_feed.erl
@@ -0,0 +1,24 @@
+-module(curling_feed).
+-behaviour(gen_event).
+
+-export([init/1, handle_event/2, handle_call/2, handle_info/2, code_change/3,
+         terminate/2]).
+
+init([Pid]) ->
+    {ok, Pid}.
+
+handle_event(Event, Pid) ->
+    Pid ! {curling_feed, Event},
+    {ok, Pid}.
+
+handle_call(_, State) ->
+    {ok, ok, State}.
+
+handle_info(_, State) ->
+    {ok, State}.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+terminate(_Reason, _State) ->
+    ok.
-- 
cgit v1.2.3