From 1f06679a739ba0be3b6b91c10bfd762a06c9573a Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Sun, 10 May 2015 13:06:08 +0200 Subject: Migrationg to Elm 0.15 --- src/Update/Update.elm | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'src/Update/Update.elm') diff --git a/src/Update/Update.elm b/src/Update/Update.elm index 2f4d7a4..b4cf741 100644 --- a/src/Update/Update.elm +++ b/src/Update/Update.elm @@ -1,32 +1,32 @@ module Update.Update ( Action(..) - , updates + , actions , logUpdate , update ) where import Signal import Dict -import Dict (Dict) -import Time (Time) +import Dict exposing (Dict) +import Time exposing (Time) import Maybe -import Keyboard (KeyCode) +import Keyboard exposing (KeyCode) import Char import List import Debug -import Model.Model (..) -import Model.Timer (..) -import Model.Edition.Edition (..) -import Model.Edition.NameEdition (..) -import Model.Edition.TimeEdition (..) -import Model.Id (..) -import Model.IdGenerator (..) +import Model.Model exposing (..) +import Model.Timer exposing (..) +import Model.Edition.Edition exposing (..) +import Model.Edition.NameEdition exposing (..) +import Model.Edition.TimeEdition exposing (..) +import Model.Id exposing (..) +import Model.IdGenerator exposing (..) -import Update.UpdateTimer (..) -import Update.UpdateEdition (..) +import Update.UpdateTimer exposing (..) +import Update.UpdateEdition exposing (..) -import Utils.Maybe (..) +import Utils.Maybe exposing (..) type Action = NoOp @@ -39,8 +39,8 @@ type Action = | ClickAway | KeyPressed KeyCode -updates : Signal.Channel Action -updates = Signal.channel NoOp +actions : Signal.Mailbox Action +actions = Signal.mailbox NoOp logUpdate : Action -> Model -> Model logUpdate action model = -- cgit v1.2.3