Revision a55a40d6

b/src/Ganeti/Locking/Allocation.hs
243 243 
        | lock < highest && notHolding [ (lock, OwnExclusive) ]
244 244 
        -> orderViolation lock
245 245 
      LockRequest lock (Just OwnShared)
246 
        | lock < highest && notHolding [ (lock, OwnExclusive)
246 
        | lock < highest && notHolding [ (lock, OwnShared)
247 247 
                                       , (lock, OwnExclusive)]
248 248 
        -> orderViolation lock
249 249 
      _ -> Ok ()

Also available in: Unified diff