From 2aa0c12b6a193d16681a0179a067664390af7aee Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 14 Sep 2018 18:57:42 +0200
Subject: ...

---
 src/ElmModule/Init.elm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'src/ElmModule/Init.elm')

diff --git a/src/ElmModule/Init.elm b/src/ElmModule/Init.elm
index ccb3595..65d31b7 100644
--- a/src/ElmModule/Init.elm
+++ b/src/ElmModule/Init.elm
@@ -1,8 +1,11 @@
 module ElmModule.Init exposing (init)
 
 -- Elm -------------------------------------------------------------------------
+import Delay
 
--- Main Menu -------------------------------------------------------------------
+import Time
+
+-- Extension -------------------------------------------------------------------
 import Struct.Event
 import Struct.Flags
 import Struct.Model
@@ -15,4 +18,12 @@ import Struct.Model
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
 init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
-init flags = ((Struct.Model.new flags), Cmd.none)
+init flags =
+   (
+      (Struct.Model.new flags),
+      (Delay.after
+         (toFloat (Struct.Flags.get_frequency flags))
+         (Time.minute)
+         Struct.Event.ShouldRefresh
+      )
+   )
-- 
cgit v1.2.3-70-g09d2