From cd3b37adebca99138fad1acca37908183036ace9 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 00:15:05 +0100
Subject: Initial commit, can create and name 5 minute timers, can toggle
 running state

---
 src/Main.elm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 src/Main.elm

(limited to 'src/Main.elm')

diff --git a/src/Main.elm b/src/Main.elm
new file mode 100644
index 0000000..c2a7519
--- /dev/null
+++ b/src/Main.elm
@@ -0,0 +1,26 @@
+module Main
+  ( main
+  ) where
+
+import Signal
+import Html (Html)
+import Time (..)
+
+import Model.Model (..)
+import Update.Update (..)
+import View.View (view)
+
+main : Signal Html
+main = Signal.map view model
+
+model : Signal Model
+model = Signal.foldp update (initialModel initialTime) input
+
+input : Signal Action
+input =
+  Signal.mergeMany
+    [ Signal.subscribe updates
+    , Signal.map DeltaTime (fps 30)
+    ]
+
+port initialTime : Time
-- 
cgit v1.2.3