[project @ 2001-05-21 15:25:24 by simonmar]
[ghc-hetmet.git] / 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)