ghc/tests/lib/Directory/getDirectoryContents001.hs

   1 import Directory (getDirectoryContents)
   2 import List (sort, isPrefixOf, isSuffixOf)
   3
   4 main = do
   5     names <- getDirectoryContents "."
   6     putStrLn (unlines (sort (filter ok names)))
   7
   8 ok name = "getDirectoryContents" `isPrefixOf` name
   9           && not ("bak" `isSuffixOf` name)