Stop using head in isLeadingNumberVar

This commit is contained in:
Joseph C. Sible 2023-10-16 00:55:04 -04:00
parent 8b3c37aa36
commit 4fd0615501
1 changed files with 2 additions and 3 deletions

View File

@ -4378,9 +4378,8 @@ checkEqualsInCommand params originalToken =
return $ isVariableName str return $ isVariableName str
isLeadingNumberVar s = isLeadingNumberVar s =
let lead = takeWhile (/= '=') s case takeWhile (/= '=') s of
in not (null lead) && isDigit (head lead) lead@(x:_) -> isDigit x && all isVariableChar lead && not (all isDigit lead)
&& all isVariableChar lead && not (all isDigit lead)
msg cmd leading (T_Literal litId s) = do msg cmd leading (T_Literal litId s) = do
-- There are many different cases, and the order of the branches matter. -- There are many different cases, and the order of the branches matter.