blob: b73016d7a776c291b3ca556fefc3ebedcae5b361 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
module Model.Timer
( Timer
, initialTimer
, substractTimerTime
, initTime
) where
import List
import Time (Time)
import Model.TimerState (..)
type alias Timer =
{ creationTime : Time
, name : String
, initialTime : Time
, currentTime : Time
, state : TimerState
}
initialTimer : Time -> String -> Timer
initialTimer creationTime name =
let initialTime = 5 * 60 * 1000
in { creationTime = creationTime
, name = name
, initialTime = initialTime
, currentTime = initTime initialTime
, state = Idle
}
substractTimerTime : Time -> Timer -> Timer
substractTimerTime time timer =
if timer.state == Running
then
let newTime = timer.currentTime - time
in if newTime <= 0.0
then
{ timer
| currentTime <- 0.0
, state <- Ringing
}
else
{ timer | currentTime <- newTime }
else
timer
initTime : Time -> Time
initTime t = t + 999
|
