X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Flib%2FDirectory%2FgetDirectoryContents001.hs;fp=ghc%2Ftests%2Flib%2FDirectory%2FgetDirectoryContents001.hs;h=0000000000000000000000000000000000000000;hb=16acb4976514ab4b03c79d6845e3f0e98a1a33cf;hp=7c48a93cd185aa2f133e385d249a8b1479fbf2ca;hpb=f2eadfd5dfb23cc611e2540f46180bca7d095f15;p=ghc-hetmet.git

diff --git a/ghc/tests/lib/Directory/getDirectoryContents001.hs b/ghc/tests/lib/Directory/getDirectoryContents001.hs
deleted file mode 100644
index 7c48a93..0000000
--- a/ghc/tests/lib/Directory/getDirectoryContents001.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-import Directory (getDirectoryContents)
-import List (sort, isPrefixOf, isSuffixOf)
-
-main = do
-    names <- getDirectoryContents "."
-    putStrLn (unlines (sort (filter ok names)))
-
-ok name = "getDirectoryContents" `isPrefixOf` name 
-	  && not ("bak" `isSuffixOf` name)