Use mapM instead of reimplementing it
This commit is contained in:
parent
2c0766825e
commit
dfbcc9595e
|
@ -3371,7 +3371,7 @@ checkPipeToNowhere params t =
|
||||||
|
|
||||||
sequence_ $ do
|
sequence_ $ do
|
||||||
T_Redirecting _ redirs cmd <- return stage
|
T_Redirecting _ redirs cmd <- return stage
|
||||||
fds <- sequence $ map getRedirectionFds redirs
|
fds <- mapM getRedirectionFds redirs
|
||||||
|
|
||||||
let fdAndToken :: [(Integer, Token)]
|
let fdAndToken :: [(Integer, Token)]
|
||||||
fdAndToken =
|
fdAndToken =
|
||||||
|
|
Loading…
Reference in New Issue