Use syntactic sugar instead of building lists by hand

This commit is contained in:
Joseph C. Sible 2020-12-28 17:55:54 -05:00
parent dfbcc9595e
commit 8480563672
3 changed files with 5 additions and 5 deletions

View file

@ -916,7 +916,7 @@ checkWhileGetoptsCase = CommandCheck (Exactly "getopts") f
fromGlob t =
case t of
T_Glob _ ('[':c:']':[]) -> return [c]
T_Glob _ ['[', c, ']'] -> return [c]
T_Glob _ "*" -> return "*"
T_Glob _ "?" -> return "?"
_ -> Nothing