blob: 7d345b2e529555298888b2808f821a8b798d9651 (
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
|
module Model.Timer
( Timer
, initialTimer
, substractTimerTime
) where
import List
import Time (Time)
type alias Timer =
{ creationTime : Time
, name : String
, initialTime : Time
, currentTime : Time
, isRunning : Bool
}
initialTimer : Time -> String -> Timer
initialTimer creationTime name =
{ creationTime = creationTime
, name = name
, initialTime = 5 * 60 * 1000
, currentTime = 5 * 60 * 1000
, isRunning = True
}
substractTimerTime : Time -> Timer -> Timer
substractTimerTime time timer =
if timer.isRunning
then
if timer.currentTime - time <= 0.0
then
{ timer
| currentTime <- 0.0
, isRunning <- False
}
else
{ timer
| currentTime <- timer.currentTime - time
}
else
timer
|
