Revision 1835fd75 test/hs/Test/Ganeti/Locking/Locks.hs

b/test/hs/Test/Ganeti/Locking/Locks.hs
52 52 
                    , NodeRes <$> genUUID
53 53 
                    , return NodeLockSet
54 54 
                    , Node <$> genUUID
55 
                    , return NetworkLockSet
56 
                    , Network <$> genUUID
55 57 
                    ]
56 58 

  		





  57
  59
  
    
-- | Verify that readJSON . showJSON = Ok


  		












Also available in:
  Unified diff