fileUUID :: (MonadError JobError m) => Job.Name -> Job.FileId -> AppState -> m UUID
fileUUID jn fn = retrieve $ nodes . ix jn . Job.files . ix fn
fileUUID :: (MonadError JobError m) => Job.Name -> Job.FileId -> AppState -> m UUID
fileUUID jn fn = retrieve $ nodes . ix jn . Job.files . ix fn
fileUUID jn fn = retrieve $ nodes . ix jn . Job.files . ix fn