src/Struct/Model.elm


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

module Struct.Model exposing
   (
      Type,
      new
   )

-- Elm -------------------------------------------------------------------------

-- Tonkadur --------------------------------------------------------------------
import Tonkadur.Types

-- Local Module ----------------------------------------------------------------
import Struct.UI
import Struct.Flags

--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type alias Type =
   {
      tonkadur : Tonkadur.Types.State,
      flags : Struct.Flags.Type,
      ui : Struct.UI.Type
   }

--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
new : Struct.Flags.Type -> Type
new flags =
   {
      tonkadur = (Tonkadur.Types.new_state flags.random_seed),
      flags = flags,
      ui = (Struct.UI.new)
   }