Fix shadowed variable warning

This commit is contained in:
Gabriel Gonzalez 2015-08-22 13:34:58 -07:00
parent a4d1d3072d
commit f4bd366e29

View file

@ -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