From f4bd366e290afdc699ac659a54f9886211c0a229 Mon Sep 17 00:00:00 2001 From: Gabriel Gonzalez Date: Sat, 22 Aug 2015 13:34:58 -0700 Subject: [PATCH] Fix shadowed variable warning --- src/Turtle/Prelude.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Turtle/Prelude.hs b/src/Turtle/Prelude.hs index 407930b..6d71cd3 100644 --- a/src/Turtle/Prelude.hs +++ b/src/Turtle/Prelude.hs @@ -605,14 +605,14 @@ lstree path = do > lstree = lsif (\_ -> return True) -} lsif :: (FilePath -> IO Bool) -> FilePath -> Shell FilePath -lsif pred path = do +lsif predicate path = do child <- ls path isDir <- liftIO (testdir child) if isDir then do - continue <- liftIO (pred child) + continue <- liftIO (predicate child) if continue - then return child <|> lsif pred child + then return child <|> lsif predicate child else return child else return child