diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-11 00:39:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-11 00:41:19 -0400 |
| commit | 9c77052ce05f449e0951b802a448e9e87756b91e (patch) | |
| tree | 742b25437297483df8534bcc9d6f90259738393d /Annex/Init.hs | |
| parent | 7be93ff4de1b3cb5fb072feb126e02042d58b44b (diff) | |
random hlint (to give the autobuilder something new to build)
Diffstat (limited to 'Annex/Init.hs')
| -rw-r--r-- | Annex/Init.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Annex/Init.hs b/Annex/Init.hs index 616bda69b..43f24031c 100644 --- a/Annex/Init.hs +++ b/Annex/Init.hs @@ -70,11 +70,10 @@ initialize mdescription = do ( do enableDirectMode setDirect True - , do - -- Handle case where this repo was cloned from a - -- direct mode repo. - unlessM isBare - switchHEADBack + -- Handle case where this repo was cloned from a + -- direct mode repo + , unlessM isBare + switchHEADBack ) createInodeSentinalFile u <- getUUID @@ -227,7 +226,7 @@ fixBadBare = whenM checkBadBare $ do logStatus k InfoPresent let dotgit = d </> ".git" liftIO $ removeDirectoryRecursive dotgit - `catchIO` (const $ renameDirectory dotgit (d </> "removeme")) + `catchIO` const (renameDirectory dotgit (d </> "removeme")) {- A repostory with the problem won't know it's a bare repository, but will - have no pre-commit hook (which is not set up in a bare repository), |