X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=9cb985cc1af3ab55fab15d78cf8e7791204b97e3;hb=5297505d37735903f022e825a80e92ca6ebf72c5;hp=734ed94987bd8c1fa6d0a08c28dba25a183f7d9c;hpb=c37cf4507dd8093addd6ef6a91fd7046f2f1f2fb;p=haskell-directory.git

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