Prefer pattern matching in undirected

This commit is contained in:
Joseph C. Sible 2020-04-05 20:08:02 -04:00
parent e8501151dd
commit fa841cb270
1 changed files with 2 additions and 2 deletions

View File

@ -519,9 +519,9 @@ checkInteractiveSu = CommandCheck (Basename "su") f
info (getId cmd) 2117
"To run commands as another user, use su -c or sudo."
undirected (T_Pipeline _ _ l) = length l <= 1
undirected (T_Pipeline _ _ (_:_:_)) = False
-- This should really just be modifications to stdin, but meh
undirected (T_Redirecting _ list _) = null list
undirected (T_Redirecting _ (_:_) _) = False
undirected _ = True