From 8ef2095fa00408ce6729596a42bc0abdc7778098 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 3 Oct 2011 22:24:57 -0400
Subject: factor out common imports

no code changes
---
 UUID.hs | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'UUID.hs')

diff --git a/UUID.hs b/UUID.hs
index eab6bd4df..633938be4 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -22,18 +22,12 @@ module UUID (
 	uuidLog
 ) where
 
-import Control.Monad.State
-import Control.Applicative
-import System.Cmd.Utils
-import System.IO
 import qualified Data.Map as M
-import Data.Maybe
 
+import AnnexCommon
 import qualified Git
 import qualified Branch
-import Types
 import Types.UUID
-import qualified Annex
 import qualified Build.SysConfig as SysConfig
 import Config
 
@@ -60,7 +54,7 @@ genUUID = liftIO $ pOpen ReadFromPipe command params $ \h -> hGetLine h
  -}
 getUUID :: Git.Repo -> Annex UUID
 getUUID r = do
-	g <- Annex.gitRepo
+	g <- gitRepo
 
 	let c = cached g
 	let u = getUncachedUUID r
@@ -81,7 +75,7 @@ getUncachedUUID r = Git.configGet r configkey ""
 {- Make sure that the repo has an annex.uuid setting. -}
 prepUUID :: Annex ()
 prepUUID = do
-	u <- getUUID =<< Annex.gitRepo
+	u <- getUUID =<< gitRepo
 	when ("" == u) $ do
 		uuid <- liftIO genUUID
 		setConfig configkey uuid
-- 
cgit v1.2.3