| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Struct/Event.elm')
| -rw-r--r-- | src/Struct/Event.elm | 30 |
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))) |