diff options
Diffstat (limited to 'src/Update')
-rw-r--r-- | src/Update/Update.elm | 32 | ||||
-rw-r--r-- | src/Update/UpdateEdition.elm | 6 | ||||
-rw-r--r-- | src/Update/UpdateTimer.elm | 8 |
3 files changed, 23 insertions, 23 deletions
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 = diff --git a/src/Update/UpdateEdition.elm b/src/Update/UpdateEdition.elm index d94bd1e..47b0e22 100644 --- a/src/Update/UpdateEdition.elm +++ b/src/Update/UpdateEdition.elm @@ -4,11 +4,11 @@ module Update.UpdateEdition ) where import Char -import Char (KeyCode) +import Char exposing (KeyCode) -import Model.Edition.Edition (..) +import Model.Edition.Edition exposing (..) -import Utils.List (..) +import Utils.List exposing (..) type EditionAction = DeleteLast diff --git a/src/Update/UpdateTimer.elm b/src/Update/UpdateTimer.elm index 30603cd..49593d0 100644 --- a/src/Update/UpdateTimer.elm +++ b/src/Update/UpdateTimer.elm @@ -3,11 +3,11 @@ module Update.UpdateTimer , updateTimer ) where -import Time (Time) +import Time exposing (Time) -import Model.Timer (..) -import Model.TimerState (..) -import Model.Id (..) +import Model.Timer exposing (..) +import Model.TimerState exposing (..) +import Model.Id exposing (..) type TimerAction = Rename String |