From 5297505d37735903f022e825a80e92ca6ebf72c5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Sep 2003 13:46:36 +0000
Subject: [PATCH] [project @ 2003-09-16 13:46:36 by simonmar] Don't strip the
 trailing slash from the filename '/'.

---
 System/Directory.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Directory.hs b/System/Directory.hs
index 734ed94..9cb985c 100644
--- 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
-- 
1.7.10.4