ghc/tests/lib/Directory/getDirectoryContents001.hs

   1 import Directory (getDirectoryContents)
   2 import List (sort, isPrefixOf)
   3
   4 main = do
   5     names <- getDirectoryContents "."
   6     let names' = filter (isPrefixOf "io009") names
   7     putStrLn (unlines (sort names'))