Starting to separate background and popup code.

1 files changed, 30 insertions, 0 deletions

diff --git a/src/popup/src/Struct/Event.elm b/src/popup/src/Struct/Event.elm
new file mode 100644
index 0000000..eafd812
--- /dev/null
+++ b/src/popup/src/Struct/Event.elm
@@ -0,0 +1,30 @@
+module Struct.Event exposing (Type(..), attempted)
+
+-- Elm -------------------------------------------------------------------------
+import Http
+
+-- Main Menu -------------------------------------------------------------------
+import Struct.Error
+import Struct.ServerReply
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type Type =
+   None
+   | Failed Struct.Error.Type
+   | AddPlayer
+   | ShouldRefresh
+   | SetUsername String
+   | SetID String
+   | SetURLPrefix String
+   | SetFrequency Int
+   | StoreParams
+   | ServerReplied (Result Http.Error (List Struct.ServerReply.Type))
+
+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)))