-- | Gets a name (non-fqdn) in non-empty type.
genNameNE :: Gen NonEmptyString
genNameNE = genName >>= mkNonEmpty
genNameNE :: Gen NonEmptyString
genNameNE = genName >>= mkNonEmpty
genNameNE = genName >>= mkNonEmpty