Fuse maps

This commit is contained in:
Joseph C. Sible 2020-12-28 18:10:47 -05:00
parent 953d9bc56d
commit 2cfd1f2714
2 changed files with 2 additions and 2 deletions

View file

@ -951,7 +951,7 @@ checkCatastrophicRm = CommandCheck (Basename "rm") $ \t ->
when (isRecursive t) $
mapM_ (mapM_ checkWord . braceExpand) $ arguments t
where
isRecursive = any (`elem` ["r", "R", "recursive"]) . map snd . getAllFlags
isRecursive = any ((`elem` ["r", "R", "recursive"]) . snd) . getAllFlags
checkWord token =
case getLiteralString token of