refactor catfile code

split into generic IO code, and a thin Annex wrapper

1 files changed, 1 insertions, 6 deletions

diff --git a/Types/BranchState.hs b/Types/BranchState.hs
index bc1d32e69..777edb32c 100644
--- a/Types/BranchState.hs
+++ b/Types/BranchState.hs
@@ -7,18 +7,13 @@
 
 module Types.BranchState where
 
-import System.IO
-
 data BranchState = BranchState {
 	branchUpdated :: Bool, -- has the branch been updated this run?
 
-	-- (from, to) handles used to talk to a git-cat-file process
-	catFileHandles :: Maybe (Handle, Handle),
-
 	-- the content of one file is cached
 	cachedFile :: Maybe FilePath,
 	cachedContent :: String
 }
 
 startBranchState :: BranchState
-startBranchState = BranchState False Nothing Nothing ""
+startBranchState = BranchState False Nothing ""