1 files changed, 6 insertions, 1 deletions
diff --git a/BackendTypes.hs b/BackendTypes.hs
index 41ff7e506..1b67ef584 100644
--- a/BackendTypes.hs
+++ b/BackendTypes.hs
@@ -9,11 +9,16 @@ import Control.Monad.State (StateT)
 import Data.String.Utils
 import qualified GitRepo as Git
 
+-- command-line flags
+data Flag = Force
+	deriving (Eq, Read, Show)
+
 -- git-annex's runtime state type doesn't really belong here,
 -- but it uses Backend, so has to be here to avoid a depends loop.
 data AnnexState = AnnexState {
 	repo :: Git.Repo,
-	backends :: [Backend]
+	backends :: [Backend],
+	flags :: [Flag]
 } deriving (Show)
 
 -- git-annex's monad