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/View/View.elm | 67 -------------------------------------------------------
 1 file changed, 67 deletions(-)
 delete mode 100644 src/View/View.elm

(limited to 'src/View/View.elm')

diff --git a/src/View/View.elm b/src/View/View.elm
deleted file mode 100644
index a69d662..0000000
--- a/src/View/View.elm
+++ /dev/null
@@ -1,67 +0,0 @@
-module View.View
-  ( view
-  ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-import Signal
-import List
-import Dict
-import Json.Decode as Json
-
-import Model.Model exposing (..)
-import Model.Timer exposing (..)
-import Model.Id exposing (..)
-
-import Update.Update exposing (..)
-
-import View.Timer exposing (timerView)
-
-view : Model -> Html
-view model =
-  div
-    []
-    [ title
-    , model.timers
-        |> Dict.toList
-        |> List.sortBy (.creationTime << snd)
-        |> timers model
-    ]
-
-title : Html
-title =
-  div
-    [ class "headerBar" ]
-    [ button
-        [ onClick actions.address Initialize
-        , class "title"
-        ]
-        [ text "Timer" ]
-    , button
-        [ onClick actions.address AddNewTimer
-        , class "addTimer"
-        ]
-        [ i
-            [ class "fa fa-fw fa-plus" ]
-            []
-        ]
-    ]
-
-onEnter : Signal.Message -> Attribute
-onEnter message =
-  on "keydown"
-    (Json.customDecoder keyCode is13)
-    (always message)
-
-is13 : Int -> Result String ()
-is13 code =
-  if code == 13
-    then Ok()
-    else Err "Not the right key code"
-
-timers : Model -> List (Id, Timer) -> Html
-timers model timers =
-  div
-    [ class "timers" ]
-    (List.map (timerView model) timers)
-- 
cgit v1.2.3