| summaryrefslogtreecommitdiff |
diff options
| author | nsensfel <SpamShield0@noot-noot.org> | 2018-09-27 15:40:30 +0200 |
|---|---|---|
| committer | nsensfel <SpamShield0@noot-noot.org> | 2018-09-27 15:40:30 +0200 |
| commit | 2f22e667fbea56884d74ed27777f2e9f3fc9fd53 (patch) | |
| tree | 75300c58cc7b287993887f84b2d68b9d515a9ec0 /src/Comm/GetBattles.elm | |
| parent | 486ee1dbe21be962e89f421e1dd5f3cbb2fd2177 (diff) | |
Starting to separate background and popup code.
Diffstat (limited to 'src/Comm/GetBattles.elm')
| -rw-r--r-- | src/Comm/GetBattles.elm | 45 |
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)) - ) |


