Revision ffc18bb2 src/Ganeti/HTools/Program/Hscan.hs

b/src/Ganeti/HTools/Program/Hscan.hs
159 159

  
160 160
  results <- mapM (\name -> Rapi.loadData name >>= writeData nlen name opts)
161 161
             clusters
162
  unless (all id results) $ exitWith (ExitFailure 2)
162
  unless (and results) $ exitWith (ExitFailure 2)

Also available in: Unified diff