From 071b07463ab3f6894928b13553e98cd47c9ccb18 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 28 Jun 2016 00:32:37 +0200
Subject: Add tooltips

---
 src/client/elm/Main.elm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/Main.elm')

diff --git a/src/client/elm/Main.elm b/src/client/elm/Main.elm
index d15813d..fa1415d 100644
--- a/src/client/elm/Main.elm
+++ b/src/client/elm/Main.elm
@@ -10,6 +10,7 @@ import Model exposing (init)
 import Update exposing (update, urlUpdate)
 import View exposing (view)
 import Page
+import Tooltip
 
 main =
   Navigation.programWithFlags (Navigation.makeParser Page.fromHash)
@@ -17,5 +18,10 @@ main =
     , view = view
     , update = update
     , urlUpdate = urlUpdate
-    , subscriptions = \_ -> Time.every 1000 Msg.UpdateTime
+    , subscriptions = (\model ->
+        Sub.batch
+          [ Time.every 1000 Msg.UpdateTime
+          , Sub.map Msg.Tooltip Tooltip.subscription
+          ]
+      )
     }
-- 
cgit v1.2.3