From 6984bcdba90096908010c0e25e20ee9c475acfc7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 28 Jun 2022 15:41:25 -0400
Subject: [PATCH] remove dead code

flags no longer used anywhere
---
 Annex.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/Annex.hs b/Annex.hs
index abe947444b..e4fbd51152 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -19,10 +19,8 @@ module Annex (
 	getState,
 	changeState,
 	withState,
-	setFlag,
 	setField,
 	setOutput,
-	getFlag,
 	getField,
 	addCleanupAction,
 	gitRepo,
@@ -189,7 +187,6 @@ data AnnexState = AnnexState
 	, trustmap :: Maybe TrustMap
 	, groupmap :: Maybe GroupMap
 	, lockcache :: LockCache
-	, flags :: M.Map String Bool
 	, fields :: M.Map String String
 	, cleanupactions :: M.Map CleanupAction (Annex ())
 	, sentinalstatus :: Maybe SentinalStatus
@@ -245,7 +242,6 @@ newAnnexState c r = do
 		, trustmap = Nothing
 		, groupmap = Nothing
 		, lockcache = M.empty
-		, flags = M.empty
 		, fields = M.empty
 		, cleanupactions = M.empty
 		, sentinalstatus = Nothing
@@ -327,11 +323,6 @@ withState modifier = do
 	mvar <- fst <$> ask
 	liftIO $ modifyMVar mvar modifier
 
-{- Sets a flag to True -}
-setFlag :: String -> Annex ()
-setFlag flag = changeState $ \st ->
-	st { flags = M.insert flag True $ flags st }
-
 {- Sets a field to a value -}
 setField :: String -> String -> Annex ()
 setField field value = changeState $ \st ->
@@ -348,10 +339,6 @@ setOutput o = changeState $ \st ->
 	let m = output st
 	in st { output = m { outputType = adjustOutputType (outputType m) o } }
 
-{- Checks if a flag was set. -}
-getFlag :: String -> Annex Bool
-getFlag flag = fromMaybe False . M.lookup flag <$> getState flags
-
 {- Gets the value of a field. -}
 getField :: String -> Annex (Maybe String)
 getField field = M.lookup field <$> getState fields
-- 
2.30.2