| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'src/Struct')
| -rw-r--r-- | src/Struct/Event.elm | 2 | ||||
| -rw-r--r-- | src/Struct/Model.elm | 9 | ||||
| -rw-r--r-- | src/Struct/UI.elm | 8 | 
3 files changed, 16 insertions, 3 deletions
| diff --git a/src/Struct/Event.elm b/src/Struct/Event.elm index 78079d2..5127422 100644 --- a/src/Struct/Event.elm +++ b/src/Struct/Event.elm @@ -8,7 +8,7 @@ module Struct.Event exposing (..)  -- TYPES -----------------------------------------------------------------------  --------------------------------------------------------------------------------  type Type = -   EventType0 +   None  --------------------------------------------------------------------------------  -- LOCAL ----------------------------------------------------------------------- diff --git a/src/Struct/Model.elm b/src/Struct/Model.elm index a11db5c..b9c8d61 100644 --- a/src/Struct/Model.elm +++ b/src/Struct/Model.elm @@ -1,6 +1,7 @@  module Struct.Model exposing     ( -      Type +      Type, +      new     )  -- Elm ------------------------------------------------------------------------- @@ -27,3 +28,9 @@ type alias Type =  --------------------------------------------------------------------------------  -- EXPORTED --------------------------------------------------------------------  -------------------------------------------------------------------------------- +new : Type +new = +   { +      tonkadur = (Tonkadur.Types.new_state), +      ui = (Struct.UI.new) +   } diff --git a/src/Struct/UI.elm b/src/Struct/UI.elm index 53348f6..80cd9e6 100644 --- a/src/Struct/UI.elm +++ b/src/Struct/UI.elm @@ -1,6 +1,7 @@  module Struct.UI exposing     ( -      Type +      Type, +      new     )  -- Elm ------------------------------------------------------------------------- @@ -22,3 +23,8 @@ type alias Type =  --------------------------------------------------------------------------------  -- EXPORTED --------------------------------------------------------------------  -------------------------------------------------------------------------------- +new : Type +new = +   { +      displayed_options = [] +   } | 


