diff options
Diffstat (limited to 'Git')
-rw-r--r-- | Git/Construct.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Git/Construct.hs b/Git/Construct.hs index fdc56a20a..bfb16164f 100644 --- a/Git/Construct.hs +++ b/Git/Construct.hs @@ -244,9 +244,11 @@ isRepoTop dir = do else isBareRepo where isRepo = gitSignature (".git" </> "config") - isBareRepo = (&&) - <$> doesDirectoryExist (dir </> "objects") - <*> gitSignature "config" + isBareRepo = do + e <- doesDirectoryExist (dir </> "objects") + if not e + then return e + else gitSignature "config" gitSignature file = doesFileExist (dir </> file) newFrom :: RepoLocation -> IO Repo |