From a2bac44a4c8abc064de55d0779edcb07aaa86e62 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Mon, 25 Nov 2019 14:32:39 +0100
Subject: ...

---
 .../BattleCharacters/Struct/DataSetItem.elm        | 44 ++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm

(limited to 'src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm')

diff --git a/src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm b/src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm
new file mode 100644
index 0000000..09dd9e5
--- /dev/null
+++ b/src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm
@@ -0,0 +1,44 @@
+module BattleCharacters.Struct.DataSetItem exposing (Type(..), add_to)
+
+-- Battle Characters -----------------------------------------------------------
+import BattleCharacters.Struct.Armor
+import BattleCharacters.Struct.DataSet
+import BattleCharacters.Struct.Glyph
+import BattleCharacters.Struct.GlyphBoard
+import BattleCharacters.Struct.Portrait
+import BattleCharacters.Struct.Skill
+import BattleCharacters.Struct.Weapon
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type Type =
+   Armor BattleCharacters.Struct.Armor.Type
+   | Glyph BattleCharacters.Struct.Glyph.Type
+   | GlyphBoard BattleCharacters.Struct.GlyphBoard.Type
+   | Portrait BattleCharacters.Struct.Portrait.Type
+   | Skill BattleCharacters.Struct.Skill.Type
+   | Weapon BattleCharacters.Struct.Weapon.Type
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+add_to : (
+      Type ->
+      BattleCharacters.Struct.DataSet.Type ->
+      BattleCharacters.Struct.DataSet.Type
+   )
+add_to item dataset =
+   case item of
+      (Armor ar) -> (BattleCharacters.Struct.DataSet.add_armor ar dataset)
+      (Glyph gl) -> (BattleCharacters.Struct.DataSet.add_glyph gl dataset)
+      (Portrait pt) -> (BattleCharacters.Struct.DataSet.add_portrait pt dataset)
+      (Skill sk) -> (BattleCharacters.Struct.DataSet.add_skill sk dataset)
+      (Weapon wp) -> (BattleCharacters.Struct.DataSet.add_weapon wp dataset)
+      (GlyphBoard gb) ->
+         (BattleCharacters.Struct.DataSet.add_glyph_board gb dataset)
+
-- 
cgit v1.2.3-70-g09d2