From ab55689164a2fa29af61bce692cfe5df2739b790 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 17 Nov 2010 13:46:50 -0400
Subject: [PATCH] simplifiy

---
 Utility.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Utility.hs b/Utility.hs
index 0053c687bb..33db4bb086 100644
--- a/Utility.hs
+++ b/Utility.hs
@@ -39,8 +39,7 @@ parentDir dir =
 	then slash ++ (join s $ take ((length dirs) - 1) dirs)
 	else ""
 		where
-			dirs = filter (\x -> length x > 0) $ 
-				split s dir
+			dirs = filter (\x -> not $ null x) $ split s dir
 			slash = if (not $ isAbsolute dir) then "" else s
 			s = [pathSeparator]