blob: 09dd9e56242ebbc749e94ad7a8d2010717bc7479 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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)
|
