diff --git a/htools/Ganeti/Types.hs b/htools/Ganeti/Types.hs
index 0297412f7d2d1e29981fabf540975484687d7a63..208ae9d7f0011d4a78d1708e9291418662fae0d0 100644
--- a/htools/Ganeti/Types.hs
+++ b/htools/Ganeti/Types.hs
@@ -437,9 +437,7 @@ instance JSON.JSON JobIdDep where
     case JSON.readJSON v::JSON.Result (Negative Int) of
       -- first try relative dependency, usually most common
       JSON.Ok r -> return $ JobDepRelative r
-      JSON.Error _ -> liftM JobDepAbsolute
-                      (fromJResult "parsing absolute job id" (readJSON v) >>=
-                       makeJobId)
+      JSON.Error _ -> liftM JobDepAbsolute (parseJobId v)
 
 -- | Job Dependency type.
 data JobDependency = JobDependency JobIdDep [FinalizedJobStatus]