isAlphaNumericName :: Text -> Bool
isAlphaNumericName suffix =
    case Text.uncons suffix of
    Nothing -> True
    Just (x, xs) -> Char.isAlpha x && Text.all Char.isAlphaNum xs
isAlphaNumericName :: Text -> Bool
isAlphaNumericName suffix =
    case Text.uncons suffix of
    Nothing -> True
    Just (x, xs) -> Char.isAlpha x && Text.all Char.isAlphaNum xs
isAlphaNumericName suffix =
    case Text.uncons suffix of
    Nothing -> True
    Just (x, xs) -> Char.isAlpha x && Text.all Char.isAlphaNum xs