From a6bd0076d42f0d70ac0f7e3e3b0ba383198e892a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Dec 2012 23:41:54 -0400 Subject: [PATCH] remove unused fields --- Types/BranchState.hs | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/Types/BranchState.hs b/Types/BranchState.hs index e5b2291f3b..2f7948ebbf 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