remove unused fields

1 files changed, 5 insertions, 9 deletions

diff --git a/Types/BranchState.hs b/Types/BranchState.hs
index e5b2291f3..2f7948ebb 100644
--- a/Types/BranchState.hs
+++ b/Types/BranchState.hs
@@ -7,14 +7,10 @@
 
 module Types.BranchState where
 
-data BranchState = BranchState {
-	branchUpdated :: Bool, -- has the branch been updated this run?
-	indexChecked :: Bool, -- has the index file been checked to exist?
-
-	-- the content of one file is cached
-	cachedFile :: Maybe FilePath,
-	cachedContent :: String
-}
+data BranchState = BranchState
+	{ branchUpdated :: Bool -- has the branch been updated this run?
+	, indexChecked :: Bool -- has the index file been checked to exist?
+	}
 
 startBranchState :: BranchState
-startBranchState = BranchState False False Nothing ""
+startBranchState = BranchState False False