convert parentDir to be based on takeDirectory, but fixed for trailing /

1 files changed, 3 insertions, 3 deletions

diff --git a/Git/Construct.hs b/Git/Construct.hs
index 108ee7eb7..572c5eb37 100644
--- a/Git/Construct.hs
+++ b/Git/Construct.hs
@@ -45,9 +45,9 @@ fromCwd = getCurrentDirectory >>= seekUp
 	seekUp dir = do
 		r <- checkForRepo dir
 		case r of
-			Nothing -> case parentDir dir of
-				"" -> return Nothing
-				d -> seekUp d
+			Nothing -> case upFrom dir of
+				Nothing -> return Nothing
+				Just d -> seekUp d
 			Just loc -> Just <$> newFrom loc
 
 {- Local Repo constructor, accepts a relative or absolute path. -}