| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm')
| -rw-r--r-- | src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm b/src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm index 7d08ec0..e8fa0f6 100644 --- a/src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm +++ b/src/shared/battle-characters/BattleCharacters/Struct/GlyphBoard.elm @@ -2,6 +2,7 @@ module BattleCharacters.Struct.GlyphBoard exposing ( Type, Ref, + find, get_name, get_id, get_slots, @@ -15,6 +16,8 @@ module BattleCharacters.Struct.GlyphBoard exposing -- Elm ------------------------------------------------------------------------- import Array +import Dict + import List import Json.Decode @@ -46,6 +49,12 @@ type alias Ref = String -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- +find : (Dict.Dict Ref Type) -> Ref -> Type +find dict ref = + case (Dict.get ref dict) of + (Just e) -> e + Nothing -> none + get_id : Type -> String get_id g = g.id |