Revision a59d5fa1 test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs | ||
---|---|---|
69 | 69 |
|
70 | 70 |
$(genArbitrary ''DiskAccess) |
71 | 71 |
|
72 |
$(genArbitrary ''InstReasonSrc) |
|
73 |
|
|
72 | 74 |
instance Arbitrary OpCodes.DiskIndex where |
73 | 75 |
arbitrary = choose (0, C.maxDisks - 1) >>= OpCodes.mkDiskIndex |
74 | 76 |
|
Also available in: Unified diff