From 4edb492d036ec0975aa96a10be107e2277835069 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 18 Oct 2007 13:32:20 +0000 Subject: [PATCH] this sneaked in somehow --- tests/currentDirectory001.hs~ | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 tests/currentDirectory001.hs~ diff --git a/tests/currentDirectory001.hs~ b/tests/currentDirectory001.hs~ deleted file mode 100644 index bcf9b96..0000000 --- a/tests/currentDirectory001.hs~ +++ /dev/null @@ -1,20 +0,0 @@ -import Directory (getCurrentDirectory, setCurrentDirectory, - createDirectory, removeDirectory, getDirectoryContents) - -main = do - oldpwd <- getCurrentDirectory - createDirectory "foo" - setCurrentDirectory "foo" - ~[n1, n2] <- getDirectoryContents "." - if dot n1 && dot n2 - then do - setCurrentDirectory oldpwd - removeDirectory "foo" - putStr "Okay\n" - else - ioError (userError "Oops") - -dot :: String -> Bool -dot "." = True -dot ".." = True -dot _ = False -- 1.7.10.4