Revision 77d43564

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