isNameOrPrefixed :: Text -> Bool
isNameOrPrefixed t =
    case Text.uncons t of
    Nothing -> True
    Just (x, xs) | x `elem` prefixes -> isAlphaNumericName xs
    Just _ -> isAlphaNumericName t
    where
        prefixes :: String
        prefixes = ".'"
isNameOrPrefixed :: Text -> Bool
isNameOrPrefixed t =
    case Text.uncons t of
    Nothing -> True
    Just (x, xs) | x `elem` prefixes -> isAlphaNumericName xs
    Just _ -> isAlphaNumericName t
    where
        prefixes :: String
        prefixes = ".'"
isNameOrPrefixed t =
    case Text.uncons t of
    Nothing -> True
    Just (x, xs) | x `elem` prefixes -> isAlphaNumericName xs
    Just _ -> isAlphaNumericName t
    where
        prefixes :: String
        prefixes = ".'"