From 77d052af3c527b3ebe349329305d80c9c5a2bf36 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 13 Oct 2010 01:49:21 -0400
Subject: [PATCH] fix parentDir to work for relative too

---
 Utility.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Utility.hs b/Utility.hs
index dea53967fc..349dd9355f 100644
--- a/Utility.hs
+++ b/Utility.hs
@@ -34,7 +34,8 @@ hGetContentsStrict h  = hGetContents h >>= \s -> length s `seq` return s
 parentDir :: String -> String
 parentDir dir =
 	if length dirs > 0
-	then "/" ++ (join "/" $ take ((length dirs) - 1) dirs)
+	then absolute ++ (join "/" $ take ((length dirs) - 1) dirs)
 	else ""
 		where
 			dirs = filter (\x -> length x > 0) $ split "/" dir
+			absolute = if ((dir !! 0) == '/') then "/" else ""