aboutsummaryrefslogtreecommitdiff
path: root/Command/DropKey.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-26 00:17:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-26 00:17:38 -0400
commit6a97b10fcb3e1fa6a230d92a25b42ded587ff743 (patch)
treeb8a6ce70916c397c67788b47de6a389db8753969 /Command/DropKey.hs
parent082b022f9ae56b1446b6607cf7851cd4f1d4f904 (diff)
rework config storage
Moved away from a map of flags to storing config directly in the AnnexState structure. Got rid of most accessor functions in Annex. This allowed supporting multiple --exclude flags.
Diffstat (limited to 'Command/DropKey.hs')
-rw-r--r--Command/DropKey.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs
index 6ba5c117c..8c7566df8 100644
--- a/Command/DropKey.hs
+++ b/Command/DropKey.hs
@@ -28,7 +28,7 @@ start keyname = do
backends <- Backend.list
let key = genKey (head backends) keyname
present <- inAnnex key
- force <- Annex.flagIsSet "force"
+ force <- Annex.getState Annex.force
if not present
then return Nothing
else if not force