| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Struct/Model.elm')
| -rw-r--r-- | src/Struct/Model.elm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Struct/Model.elm b/src/Struct/Model.elm index cf4d475..50acf92 100644 --- a/src/Struct/Model.elm +++ b/src/Struct/Model.elm @@ -11,6 +11,7 @@ import Tonkadur.Types -- Local Module ---------------------------------------------------------------- import Struct.UI +import Struct.Flags -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- @@ -18,6 +19,7 @@ import Struct.UI type alias Type = { tonkadur : Tonkadur.Types.State, + flags : Struct.Flags.Type, ui : Struct.UI.Type } @@ -28,9 +30,10 @@ type alias Type = -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- -new : Type -new = +new : Struct.Flags.Type -> Type +new flags = { - tonkadur = (Tonkadur.Types.new_state 42), + tonkadur = (Tonkadur.Types.new_state flags.random_seed), + flags = flags, ui = (Struct.UI.new) } |