From cd38afce26d9914085ea632d3eebded5fd667778 Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Sun, 5 Apr 2020 21:45:51 -0400
Subject: [PATCH] Make it slightly lazier still (and more clear)

---
 src/ShellCheck/Checks/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ShellCheck/Checks/Commands.hs b/src/ShellCheck/Checks/Commands.hs
index 14a8c09..ae02cd8 100644
--- a/src/ShellCheck/Checks/Commands.hs
+++ b/src/ShellCheck/Checks/Commands.hs
@@ -968,7 +968,7 @@ checkCatastrophicRm = CommandCheck (Basename "rm") $ \t ->
     stripTrailing c = reverse . dropWhile (== c) . reverse
     skipRepeating c = foldr go []
       where
-        go a r = a : if a == c then case r of b:rest | b == c -> rest; _ -> r else r
+        go a r = a : case r of b:rest | b == c && a == b -> rest; _ -> r
 
     paths = [
         "", "/bin", "/etc", "/home", "/mnt", "/usr", "/usr/share", "/usr/local",