From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 18 Oct 2007 13:32:20 +0000 (+0000)
Subject: this sneaked in somehow
X-Git-Tag: 2008-05-28~7
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=4edb492d036ec0975aa96a10be107e2277835069

this sneaked in somehow
---

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