genGlob :: Gen (NonEmpty GlobItem)
genGlob = do
  startGlob <- Modifiers.getNonEmpty <$> arbitrary
  specialGlob <- oneof [pure AnyChar, pure AnyCharMultiple]
  endGlob <- Modifiers.getNonEmpty <$> arbitrary
  return . NonEmpty.fromList $ (startGlob <> [specialGlob] <> endGlob)
genGlob :: Gen (NonEmpty GlobItem)
genGlob = do
  startGlob <- Modifiers.getNonEmpty <$> arbitrary
  specialGlob <- oneof [pure AnyChar, pure AnyCharMultiple]
  endGlob <- Modifiers.getNonEmpty <$> arbitrary
  return . NonEmpty.fromList $ (startGlob <> [specialGlob] <> endGlob)
genGlob = do
  startGlob <- Modifiers.getNonEmpty <$> arbitrary
  specialGlob <- oneof [pure AnyChar, pure AnyCharMultiple]
  endGlob <- Modifiers.getNonEmpty <$> arbitrary
  return . NonEmpty.fromList $ (startGlob <> [specialGlob] <> endGlob)