From 9ec5806bc721734923ff4c93f7ef1f97a6a03248 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Thu, 13 Sep 2018 16:51:08 +0200
Subject: Starting an browser extension for TO...

---
 src/Struct/Event.elm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/Struct/Event.elm

(limited to 'src/Struct/Event.elm')

diff --git a/src/Struct/Event.elm b/src/Struct/Event.elm
new file mode 100644
index 0000000..419ef51
--- /dev/null
+++ b/src/Struct/Event.elm
@@ -0,0 +1,25 @@
+module Struct.Event exposing (Type(..), attempted)
+
+-- Elm -------------------------------------------------------------------------
+import Http
+
+-- Main Menu -------------------------------------------------------------------
+import Struct.Error
+import Struct.ServerReply
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type Type =
+   None
+   | Failed Struct.Error.Type
+   | ServerReplied (Result Http.Error (List Struct.ServerReply.Type))
+   | TabSelected Struct.UI.Tab
+
+attempted : (Result.Result err val) -> Type
+attempted act =
+   case act of
+      (Result.Ok _) -> None
+      (Result.Err msg) ->
+         (Failed (Struct.Error.new Struct.Error.Failure (toString msg)))
-- 
cgit v1.2.3-70-g09d2