From 2f22e667fbea56884d74ed27777f2e9f3fc9fd53 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 27 Sep 2018 15:40:30 +0200 Subject: Starting to separate background and popup code. --- src/Struct/Event.elm | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 src/Struct/Event.elm (limited to 'src/Struct/Event.elm') 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))) -- cgit v1.2.3-70-g09d2