feat(elm): Automatically poll every 15 seconds

15 seconds is potentially a bit aggressive considering that
Gemma (currently) tracks expiry times in *days*.

1 files changed, 13 insertions, 1 deletions

diff --git a/frontend/Main.elm b/frontend/Main.elm
index c7dcc9dd89..2ff61fe28f 100644
--- a/frontend/Main.elm
+++ b/frontend/Main.elm
@@ -4,6 +4,7 @@ import Html exposing (Html, text, div, span)
 import Html.Attributes exposing (style)
 import Json.Decode exposing (..)
 import Http
+import Time
 
 
 --  Material design imports
@@ -182,6 +183,17 @@ view model =
     gemmaView model |> Scheme.top
 
 
+
+-- subscriptions : Model -> Sub Msg
+
+
+subscriptions model =
+    Sub.batch
+        [ Material.subscriptions Mdl model
+        , Time.every (15 * Time.second) (\_ -> LoadTasks)
+        ]
+
+
 main : Program Never Model Msg
 main =
     let
@@ -195,5 +207,5 @@ main =
             { init = ( model, Cmd.batch [ loadTasks, Material.init Mdl ] )
             , view = view
             , update = update
-            , subscriptions = Material.subscriptions Mdl
+            , subscriptions = subscriptions
             }