blob: c36906f10fc80c51f5d57b6ce2c13afb237fbbb1 (
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
|
module BattleMap.Struct.DataSetItem exposing (Type(..), add_to)
-- Battle Map ------------------------------------------------------------------
import BattleMap.Struct.DataSet
import BattleMap.Struct.Tile
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type Type =
Tile BattleMap.Struct.Tile.Type
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
add_to : (
Type ->
BattleMap.Struct.DataSet.Type ->
BattleMap.Struct.DataSet.Type
)
add_to item dataset =
case item of
(Tile tl) -> (BattleMap.Struct.DataSet.add_tile tl dataset)
|
