aboutsummaryrefslogtreecommitdiff
path: root/src/Update
diff options
context:
space:
mode:
Diffstat (limited to 'src/Update')
-rw-r--r--src/Update/Update.elm32
-rw-r--r--src/Update/UpdateEdition.elm6
-rw-r--r--src/Update/UpdateTimer.elm8
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