Separate client and server watch

1 files changed, 26 insertions, 0 deletions

diff --git a/src/client/Main.elm b/src/client/Main.elm
new file mode 100644
index 0000000..9674b66
--- /dev/null
+++ b/src/client/Main.elm
@@ -0,0 +1,26 @@
+module Main exposing
+  ( main
+  )
+
+import Navigation
+import Time
+import Msg exposing (Msg(UpdatePage))
+
+import Model exposing (init)
+import Update exposing (update)
+import View exposing (view)
+import Page
+import Tooltip
+
+main =
+  Navigation.programWithFlags (UpdatePage << Page.fromLocation)
+    { init = init
+    , view = view
+    , update = update
+    , subscriptions = (\model ->
+        Sub.batch
+          [ Time.every 1000 Msg.UpdateTime
+          , Sub.map Msg.Tooltip Tooltip.subscription
+          ]
+      )
+    }