summaryrefslogtreecommitdiff
path: root/CatFile.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-03 22:24:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-03 23:29:48 -0400
commit8ef2095fa00408ce6729596a42bc0abdc7778098 (patch)
treed6fc3c9f9519ba2ce617a804ce1c5f33f59a9109 /CatFile.hs
parent003a604a6e48a8a0ffd1564e3399b54e8c673e92 (diff)
factor out common imports
no code changes
Diffstat (limited to 'CatFile.hs')
-rw-r--r--CatFile.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/CatFile.hs b/CatFile.hs
index 0eb1e74f6..8762109e7 100644
--- a/CatFile.hs
+++ b/CatFile.hs
@@ -9,17 +9,15 @@ module CatFile (
catFile
) where
-import Control.Monad.State
-
+import AnnexCommon
import qualified Git.CatFile
-import Types
import qualified Annex
catFile :: String -> FilePath -> Annex String
catFile branch file = maybe startup go =<< Annex.getState Annex.catfilehandle
where
startup = do
- g <- Annex.gitRepo
+ g <- gitRepo
h <- liftIO $ Git.CatFile.catFileStart g
Annex.changeState $ \s -> s { Annex.catfilehandle = Just h }
go h