Revision ea7032da src/Ganeti/Query/Query.hs

b/src/Ganeti/Query/Query.hs
299 299 
                            lift (determineJobDirectories rootdir want_arch
300 300 
                              >>= getJobIDs)
301 301 
                          case maybeJobIDs of
302 
                            Left e -> (toError . Bad) . BlockDeviceError $
302 
                            Bad e -> (toError . Bad) . BlockDeviceError $
303 303 
                              "Unable to fetch the job list: " ++ show e
304 
                            Right jobIDs -> toError . Ok $ sortJobIDs jobIDs
304 
                            Ok jobIDs -> toError . Ok $ sortJobIDs jobIDs
305 305 
                        -- else we shouldn't look at the filesystem...
306 306 
                        else return []
307 307 
             Ok v -> toError $ Ok v

Also available in: Unified diff