summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/popup/src/Struct/Model.elm')
-rw-r--r--src/popup/src/Struct/Model.elm28
1 files changed, 6 insertions, 22 deletions
diff --git a/src/popup/src/Struct/Model.elm b/src/popup/src/Struct/Model.elm
index 6742e96..c57c286 100644
--- a/src/popup/src/Struct/Model.elm
+++ b/src/popup/src/Struct/Model.elm
@@ -22,9 +22,7 @@ type alias Type =
{
flags: Struct.Flags.Type,
error: (Maybe Struct.Error.Type),
- players: (Array.Array Struct.Player.Type),
- query_index: Int,
- notify: Bool
+ players: (Array.Array Struct.Player.Type)
}
--------------------------------------------------------------------------------
@@ -34,33 +32,19 @@ type alias Type =
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
-new : Struct.Flags.Type -> Type
-new flags =
+new : Struct.Flags.Type -> (List Struct.Player.Type) -> Type
+new flags players =
{
flags = flags,
error = Nothing,
- players =
- (Array.push
- (Struct.Player.default)
- (Array.fromList (Struct.Flags.get_players flags))
- ),
- query_index = -1,
- notify = False
+ players = (Array.fromList players)
}
reset : Type -> Type
-reset model =
- {model |
- error = Nothing,
- notify = False,
- query_index = -1
- }
+reset model = {model | error = Nothing}
invalidate : Struct.Error.Type -> Type -> Type
-invalidate err model =
- {model |
- error = (Just err)
- }
+invalidate err model = {model | error = (Just err)}
clear_error : Type -> Type
clear_error model = {model | error = Nothing}