[project @ 2003-09-16 13:46:36 by simonmar]

Don't strip the trailing slash from the filename '/'.

diff --git a/System/Directory.hs b/System/Directory.hs
index 734ed94..9cb985c 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -636,7 +636,7 @@ isDirectory stat = do
 
 fileNameEndClean :: String -> String
 fileNameEndClean name = 
-  if i >= 0 && (ec == '\\' || ec == '/') then 
+  if i > 0 && (ec == '\\' || ec == '/') then 
      fileNameEndClean (take i name)
    else
      name