Revision 77d43564 htools/Ganeti/Types.hs
b/htools/Ganeti/Types.hs | ||
---|---|---|
437 | 437 |
case JSON.readJSON v::JSON.Result (Negative Int) of |
438 | 438 |
-- first try relative dependency, usually most common |
439 | 439 |
JSON.Ok r -> return $ JobDepRelative r |
440 |
JSON.Error _ -> liftM JobDepAbsolute |
|
441 |
(fromJResult "parsing absolute job id" (readJSON v) >>= |
|
442 |
makeJobId) |
|
440 |
JSON.Error _ -> liftM JobDepAbsolute (parseJobId v) |
|
443 | 441 |
|
444 | 442 |
-- | Job Dependency type. |
445 | 443 |
data JobDependency = JobDependency JobIdDep [FinalizedJobStatus] |
Also available in: Unified diff