From 973a039b54327df74396605410ea9abe19c8a4e7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Sep 2016 21:21:11 +0200
Subject: Upgrade to elm 0.17.1

---
 src/Main.elm | 72 +++++++++++++++++++++---------------------------------------
 1 file changed, 25 insertions(+), 47 deletions(-)

(limited to 'src/Main.elm')

diff --git a/src/Main.elm b/src/Main.elm
index 746df14..743c776 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -1,51 +1,29 @@
-module Main
+port module Main exposing
   ( main
-  ) where
+  )
 
-import Signal
-import Html exposing (Html)
-import Time exposing (..)
-import Mouse
-import Json.Encode exposing (Value)
-import Keyboard
+import Html.App exposing (programWithFlags)
+import Time
 import Char
-import Dict
-import List
-import Keyboard exposing (KeyCode)
 
-import Model.Model exposing (..)
-import Model.Position exposing (..)
-import Model.TimerState exposing (..)
-import Model.Id exposing (..)
-import Update.Update exposing (..)
-import View.View exposing (view)
-
-main : Signal Html
-main = Signal.map view model
-
-model : Signal Model
-model = Signal.foldp logUpdate (initialModel initialTime) input
-
-input : Signal Action
-input =
-  Signal.mergeMany
-    [ actions.signal
-    , Signal.map DeltaTime (fps 30)
-    , Signal.map KeyPressed keyPress
-    ]
-
-port ringingTimers : Signal Bool
-port ringingTimers =
-  Signal.map
-    (\model ->
-      model.timers
-        |> Dict.toList
-        |> List.map snd
-        |> List.any (\timer -> timer.state == Ringing)
-    )
-    model
-      |> Signal.dropRepeats
-
-port keyPress : Signal KeyCode
-
-port initialTime : Time
+import Model exposing (init)
+import Model.Keyboard exposing (KeyCode)
+import Msg
+import Update exposing (update)
+import View exposing (view)
+
+main : Program Float
+main =
+  programWithFlags
+    { init = init
+    , update = update
+    , subscriptions = (\model ->
+        Sub.batch
+          [ Time.every 40 Msg.Time
+          , keyPress Msg.KeyPressed
+          ]
+      )
+    , view = view
+    }
+
+port keyPress : (KeyCode -> msg) -> Sub msg
-- 
cgit v1.2.3