From b294760833792051302df6d48c7670873da3ef76 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 14 May 2013 15:43:23 -0400
Subject: more leaning toothpick fixes

---
 Git/Construct.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Git/Construct.hs')

diff --git a/Git/Construct.hs b/Git/Construct.hs
index a30071585..1cded7a13 100644
--- a/Git/Construct.hs
+++ b/Git/Construct.hs
@@ -58,7 +58,7 @@ fromPath dir = fromAbsPath =<< absPath dir
  - specified. -}
 fromAbsPath :: FilePath -> IO Repo
 fromAbsPath dir
-	| "/" `isPrefixOf` dir =
+	| isAbsolute dir =
 		ifM (doesDirectoryExist dir') ( ret dir' , hunt )
 	| otherwise =
 		error $ "internal error, " ++ dir ++ " is not absolute"
@@ -71,7 +71,7 @@ fromAbsPath dir
 	{- When dir == "foo/.git", git looks for "foo/.git/.git",
 	 - and failing that, uses "foo" as the repository. -}
 	hunt
-		| "/.git" `isSuffixOf` canondir =
+		| pathSeparator:".git" `isSuffixOf` canondir =
 			ifM (doesDirectoryExist $ dir </> ".git")
 				( ret dir
 				, ret $ takeDirectory canondir
-- 
cgit v1.2.3