From 4094b24940779d298a3ff97525ac40deac093cab Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 25 Nov 2019 18:05:46 +0100 Subject: ... --- .../battle-map/BattleMap/Struct/DataSetItem.elm | 27 ++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src/shared/battle-map/BattleMap/Struct/DataSetItem.elm (limited to 'src/shared/battle-map/BattleMap/Struct/DataSetItem.elm') diff --git a/src/shared/battle-map/BattleMap/Struct/DataSetItem.elm b/src/shared/battle-map/BattleMap/Struct/DataSetItem.elm new file mode 100644 index 0000000..c36906f --- /dev/null +++ b/src/shared/battle-map/BattleMap/Struct/DataSetItem.elm @@ -0,0 +1,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) -- cgit v1.2.3-70-g09d2