diff options
| author | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
| commit | 878e7471fa09dcc36b478e1ac1fd305d5a90b7bf (patch) | |
| tree | d552b8faa43078e3dfe1f8b10063ec566eced4e2 /Git/Construct.hs | |
| parent | d80c547a7d1261f158148ca85e627cc2ecb005f2 (diff) | |
| download | git-repair-878e7471fa09dcc36b478e1ac1fd305d5a90b7bf.tar.gz | |
merge from git-annex
Diffstat (limited to 'Git/Construct.hs')
| -rw-r--r-- | Git/Construct.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Git/Construct.hs b/Git/Construct.hs index 71a13f4..eed2b99 100644 --- a/Git/Construct.hs +++ b/Git/Construct.hs @@ -33,6 +33,7 @@ import Common import Git.Types import Git import Git.Remote +import Git.FilePath import qualified Git.Url as Url import Utility.UserInfo @@ -57,7 +58,7 @@ fromPath dir = fromAbsPath =<< absPath dir - specified. -} fromAbsPath :: FilePath -> IO Repo fromAbsPath dir - | isAbsolute dir = ifM (doesDirectoryExist dir') ( ret dir' , hunt ) + | absoluteGitPath dir = ifM (doesDirectoryExist dir') ( ret dir' , hunt ) | otherwise = error $ "internal error, " ++ dir ++ " is not absolute" where |