From fe0dbbabc3208c79eab8390e2789ea2fc2e02981 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 18 Jul 2013 13:30:12 -0400 Subject: fix uninit to delete content from annex when it ended up hard linked back to the work tree --- Annex/Content.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Annex/Content.hs') diff --git a/Annex/Content.hs b/Annex/Content.hs index b0e0643d7..96f9d78fc 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -1,6 +1,6 @@ {- git-annex file content managing - - - Copyright 2010,2012 Joey Hess + - Copyright 2010-2013 Joey Hess - - Licensed under the GNU GPL version 3 or higher. -} @@ -10,6 +10,7 @@ module Annex.Content ( inAnnex, inAnnexSafe, + inAnnexCheck, lockContent, getViaTmp, getViaTmpChecked, @@ -56,7 +57,11 @@ import Annex.ReplaceFile {- Checks if a given key's content is currently present. -} inAnnex :: Key -> Annex Bool -inAnnex = inAnnex' id False $ liftIO . doesFileExist +inAnnex key = inAnnexCheck key $ liftIO . doesFileExist + +{- Runs an arbitrary check on a key's content. -} +inAnnexCheck :: Key -> (FilePath -> Annex Bool) -> Annex Bool +inAnnexCheck key check = inAnnex' id False check key {- Generic inAnnex, handling both indirect and direct mode. - -- cgit v1.2.3