Use "drop 1" instead of clumsily rewriting it
This commit is contained in:
parent
3449e6be21
commit
93be86f988
|
@ -612,8 +612,7 @@ getModifiedVariableCommand base@(T_SimpleCommand id cmdPrefix (T_NormalWord _ (T
|
||||||
_ -> []
|
_ -> []
|
||||||
where
|
where
|
||||||
flags = map snd $ getAllFlags base
|
flags = map snd $ getAllFlags base
|
||||||
stripEquals s = let rest = dropWhile (/= '=') s in
|
stripEquals s = drop 1 $ dropWhile (/= '=') s
|
||||||
if rest == "" then "" else tail rest
|
|
||||||
stripEqualsFrom (T_NormalWord id1 (T_Literal id2 s:rs)) =
|
stripEqualsFrom (T_NormalWord id1 (T_Literal id2 s:rs)) =
|
||||||
T_NormalWord id1 (T_Literal id2 (stripEquals s):rs)
|
T_NormalWord id1 (T_Literal id2 (stripEquals s):rs)
|
||||||
stripEqualsFrom (T_NormalWord id1 [T_DoubleQuoted id2 [T_Literal id3 s]]) =
|
stripEqualsFrom (T_NormalWord id1 [T_DoubleQuoted id2 [T_Literal id3 s]]) =
|
||||||
|
|
Loading…
Reference in New Issue