tests/getDirContents001.hs

   1 import System.Directory (getDirectoryContents)
   2 import Data.List (sort, isPrefixOf, isSuffixOf)
   3
   4 main = do
   5     names <- getDirectoryContents "."
   6     putStrLn (unlines (sort (filter ok names)))
   7
   8 ok name = "getDirContents" `isPrefixOf` name
   9           && not ("bak" `isSuffixOf` name)
  10           && not ("prof" `isSuffixOf` name)
  11           && not ("hp" `isSuffixOf` name)
  12           && not ("ps" `isSuffixOf` name)
  13           && not ("aux" `isSuffixOf` name)