Update Question 1 to be more precise

[cipherlogs]

Hi there! It seems like the homework is not matching what I saw in the solutions section. Could you please clarify the question so that it is more clear to others ? Thank you!

what I thought it needed to be done from question 1

-- Q1
listFiles :: IO ()
listFiles
  = listDirectory (".")
  >>= filterM doesFileExist
  >>= return . length
  >>= (\num -> putStrLn ("Found " ++ show num ++ " files."))

however looking at the solution, listFiles here is counting directories too, which isn't what the exercise was asking for

listFiles :: IO ()
listFiles = do
  x <- listDirectory "."
  let amount = length x
  putStrLn $ "Files and folders in current directory: " ++ show amount

[rober-m]

Thank you, @cipherlogs! 🙌