when run in uninitialized git repo, do firstrun

My $HOME is in git, let's make it work :)

1 files changed, 5 insertions, 0 deletions

diff --git a/Init.hs b/Init.hs
index bddcc696e..8c000cc41 100644
--- a/Init.hs
+++ b/Init.hs
@@ -7,6 +7,7 @@
 
 module Init (
 	ensureInitialized,
+	isInitialized,
 	initialize,
 	uninitialize
 ) where
@@ -45,6 +46,10 @@ ensureInitialized = getVersion >>= maybe needsinit checkVersion
 				, error "First run: git-annex init"
 				)
 
+{- Checks if a repository is initialized. Does not check version for ugrade. -}
+isInitialized :: Annex Bool
+isInitialized = maybe Annex.Branch.hasSibling (const $ return True) =<< getVersion
+
 {- set up a git pre-commit hook, if one is not already present -}
 gitPreCommitHookWrite :: Annex ()
 gitPreCommitHookWrite = unlessBare $ do