summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2019-03-23 01:10:58 +0100
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2019-03-23 01:10:58 +0100
commit8a8e05469c15e8dea34c0466bc70a105628afc8e (patch)
tree4b5ce10718dc81805c43e610511e01cca538f6e6 /src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm
parent839e90f1e654bd30596f82e6133087a5578d5e6c (diff)
[Broken] ...
Diffstat (limited to 'src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm')
-rw-r--r--src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm33
1 files changed, 33 insertions, 0 deletions
diff --git a/src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm b/src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm
new file mode 100644
index 0000000..6a05978
--- /dev/null
+++ b/src/shared/battle-characters/BattleCharacters/Comm/AddWeapon.elm
@@ -0,0 +1,33 @@
+module BattleCharacters.Comm.AddWeapon exposing (decode)
+
+-- Elm -------------------------------------------------------------------------
+import Json.Decode
+
+-- Battle Characters -----------------------------------------------------------
+import BattleCharacters.Struct.Weapon
+
+-- Local Module ----------------------------------------------------------------
+import Struct.ServerReply
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+internal_decoder : (
+ BattleCharacters.Struct.Weapon.Type ->
+ Struct.ServerReply.Type
+ )
+internal_decoder wp = (Struct.ServerReply.AddWeapon wp)
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+decode : (Json.Decode.Decoder Struct.ServerReply.Type)
+decode =
+ (Json.Decode.map
+ (internal_decoder)
+ (BattleCharacters.Struct.Weapon.decoder)
+ )