LGTM
On Tue, Apr 8, 2014 at 2:02 PM, Klaus Aehlig <[email protected]> wrote: > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/Locking/Allocation.hs | 2 +- > 1 file changed, 1 insertion(+), 1 deletion(-) > > diff --git a/src/Ganeti/Locking/Allocation.hs > b/src/Ganeti/Locking/Allocation.hs > index 1d48e8a..d8d3c36 100644 > --- a/src/Ganeti/Locking/Allocation.hs > +++ b/src/Ganeti/Locking/Allocation.hs > @@ -154,7 +154,7 @@ holdsLock owner lock state = (>= Just state) . > M.lookup lock . listLocks owner > data LockRequest a = LockRequest { lockAffected :: a > , lockRequestType :: Maybe OwnerState > } > - deriving (Eq, Show) > + deriving (Eq, Show, Ord) > > -- | Lock request for an exclusive lock. > requestExclusive :: a -> LockRequest a > -- > 1.9.1.423.g4596e3a > >
