Revision 5cbf7832 test/hs/Test/Ganeti/TestCommon.hs
| b/test/hs/Test/Ganeti/TestCommon.hs | ||
|---|---|---|
| 328 | 328 |
|
| 329 | 329 |
-- | Generates a valid, arbitrary tag name with respect to the given |
| 330 | 330 |
-- 'TagKind' for opcodes. |
| 331 |
genOpCodesTagName :: TagKind -> Gen (Maybe NonEmptyString)
|
|
| 331 |
genOpCodesTagName :: TagKind -> Gen (Maybe String) |
|
| 332 | 332 |
genOpCodesTagName TagKindCluster = return Nothing |
| 333 |
genOpCodesTagName _ = Just <$> (mkNonEmpty =<< genFQDN)
|
|
| 333 |
genOpCodesTagName _ = Just <$> genFQDN
|
|
| 334 | 334 |
|
| 335 | 335 |
-- | Generates a valid, arbitrary tag name with respect to the given |
| 336 | 336 |
-- 'TagKind' for Luxi. |
Also available in: Unified diff