summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2018-09-27 15:40:30 +0200
committernsensfel <SpamShield0@noot-noot.org>2018-09-27 15:40:30 +0200
commit2f22e667fbea56884d74ed27777f2e9f3fc9fd53 (patch)
tree75300c58cc7b287993887f84b2d68b9d515a9ec0 /src/Struct/Event.elm
parent486ee1dbe21be962e89f421e1dd5f3cbb2fd2177 (diff)
Starting to separate background and popup code.
Diffstat (limited to 'src/Struct/Event.elm')
-rw-r--r--src/Struct/Event.elm30
1 files changed, 0 insertions, 30 deletions
diff --git a/src/Struct/Event.elm b/src/Struct/Event.elm
deleted file mode 100644
index eafd812..0000000
--- a/src/Struct/Event.elm
+++ /dev/null
@@ -1,30 +0,0 @@
-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)))