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/Comm/GetBattles.elm
parent486ee1dbe21be962e89f421e1dd5f3cbb2fd2177 (diff)
Starting to separate background and popup code.
Diffstat (limited to 'src/Comm/GetBattles.elm')
-rw-r--r--src/Comm/GetBattles.elm45
1 files changed, 0 insertions, 45 deletions
diff --git a/src/Comm/GetBattles.elm b/src/Comm/GetBattles.elm
deleted file mode 100644
index 0956972..0000000
--- a/src/Comm/GetBattles.elm
+++ /dev/null
@@ -1,45 +0,0 @@
-module Comm.GetBattles exposing (try)
-
--- Elm -------------------------------------------------------------------------
-import Json.Encode
-
--- Extension -------------------------------------------------------------------
-import Comm.Send
-
-import Struct.Event
-import Struct.Model
-import Struct.Player
-
---------------------------------------------------------------------------------
--- TYPES ------------------------------------------------------------------------
---------------------------------------------------------------------------------
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-try_encoding : String -> Struct.Model.Type -> (Maybe Json.Encode.Value)
-try_encoding player_id model =
- let
- encoded_player_id = (Json.Encode.string player_id)
- in
- (Just
- (Json.Encode.object
- [
- ("id", encoded_player_id)
- ]
- )
- )
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-try : Struct.Model.Type -> Struct.Player.Type -> (Maybe (Cmd Struct.Event.Type))
-try model player =
- (Comm.Send.try_sending
- model
- (
- (Struct.Player.get_query_url player)
- ++ "/handler/player/plr_get_battles"
- )
- (try_encoding (Struct.Player.get_id player))
- )