From 8a8e05469c15e8dea34c0466bc70a105628afc8e Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 23 Mar 2019 01:10:58 +0100
Subject: [Broken] ...

---
 .../BattleCharacters/Comm/AddGlyph.elm             | 28 ++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 src/shared/battle-characters/BattleCharacters/Comm/AddGlyph.elm

(limited to 'src/shared/battle-characters/BattleCharacters/Comm/AddGlyph.elm')

diff --git a/src/shared/battle-characters/BattleCharacters/Comm/AddGlyph.elm b/src/shared/battle-characters/BattleCharacters/Comm/AddGlyph.elm
new file mode 100644
index 0000000..100ed54
--- /dev/null
+++ b/src/shared/battle-characters/BattleCharacters/Comm/AddGlyph.elm
@@ -0,0 +1,28 @@
+module BattleCharacters.Comm.AddGlyph exposing (decode)
+
+-- Elm -------------------------------------------------------------------------
+import Json.Decode
+
+-- Battle Characters -----------------------------------------------------------
+import BattleCharacters.Struct.Glyph
+import BattleCharacters.Struct.GlyphBoard
+
+-- Local Module ----------------------------------------------------------------
+import Struct.ServerReply
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+internal_decoder : BattleCharacters.Struct.Glyph.Type -> Struct.ServerReply.Type
+internal_decoder gl = (Struct.ServerReply.AddGlyph gl)
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+decode : (Json.Decode.Decoder Struct.ServerReply.Type)
+decode =
+   (Json.Decode.map (internal_decoder) (BattleCharacters.Struct.Glyph.decoder))
-- 
cgit v1.2.3-70-g09d2