From 48643b68b3ff05399b72f44b8b02ff34d6de046c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Oct 2010 02:36:41 -0400
Subject: convert GitRepo to qualified import

---
 Types.hs | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index ce377dda1..c9d33affd 100644
--- a/Types.hs
+++ b/Types.hs
@@ -1,26 +1,14 @@
 {- git-annex core data types -}
 
-module Types (
-	Annex,
-	AnnexState,
-	makeAnnexState,
-	runAnnexState,
-	gitAnnex,
-	gitAnnexChange,
-	backendsAnnex,
-	backendsAnnexChange,
-
-	Key(..),
-	Backend(..)
-) where
+module Types where
 
 import Control.Monad.State
 import Data.String.Utils
-import GitRepo
+import qualified GitRepo as Git
 
 -- git-annex's runtime state
 data AnnexState = AnnexState {
-	repo :: GitRepo,
+	repo :: Git.Repo,
 	backends :: [Backend]
 } deriving (Show)
 
@@ -28,18 +16,18 @@ data AnnexState = AnnexState {
 type Annex = StateT AnnexState IO
 
 -- constructor
-makeAnnexState :: GitRepo -> AnnexState
+makeAnnexState :: Git.Repo -> AnnexState
 makeAnnexState g = AnnexState { repo = g, backends = [] }
 
 -- performs an action in the Annex monad
 runAnnexState state action = runStateT (action) state
 
 -- Annex monad state accessors
-gitAnnex :: Annex GitRepo
+gitAnnex :: Annex Git.Repo
 gitAnnex = do
 	state <- get
 	return (repo state)
-gitAnnexChange :: GitRepo -> Annex ()
+gitAnnexChange :: Git.Repo -> Annex ()
 gitAnnexChange r = do
 	state <- get
 	put state { repo = r }
-- 
cgit v1.2.3