Slide 107
Slide 107 text
1 newtype TaskId =
2 TaskId Text
3
4 data Timeliness =
5 Interactive
6 | Lazy
7 | FinishBy UTCTime
8
9 data Requirement =
10 Requirement {
11 memory :: Memory
12 , disk :: Disk
13 , network :: Network
14 , timeliness :: Timeliness
15 } deriving (Eq, Show)
16
17 data Task =
18 Task {
19 taskId :: !TaskId
20 , taskRequirement :: !Requirement
21 } deriving (Eq, Show)