| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm')
| -rw-r--r-- | src/shared/battle-characters/BattleCharacters/Struct/DataSetItem.elm | 44 |
1 files changed, 44 insertions, 0 deletions
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) + |