summaryrefslogtreecommitdiff
path: root/Command/Uninit.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Uninit.hs')
-rw-r--r--Command/Uninit.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 60e86cc03..b2046ec41 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -19,12 +19,11 @@ import qualified Annex.Branch
import Annex.Content
command :: [Command]
-command = [Command "uninit" paramPaths check seek
+command = [Command "uninit" paramPaths (check >> defaultChecks) seek
"de-initialize git-annex and clean out repository"]
check :: Annex ()
check = do
- needsRepo
b <- current_branch
when (b == Annex.Branch.name) $ error $
"cannot uninit when the " ++ b ++ " branch is checked out"