move

Locations.hs

@@ -20,6 +20,7 @@ module Locations (
 	gitAnnexBadLocation,
 	gitAnnexUnusedLog,
 	isLinkToAnnex,
+	uuidLog,
 	logFile,
 	logFileKey,
 	hashDirMixed,
@@ -117,6 +118,10 @@ gitAnnexUnusedLog prefix r = gitAnnexDir r </> (prefix ++ "unused")
 isLinkToAnnex :: FilePath -> Bool
 isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s
 
+{- Filename of uuid.log. -}
+uuidLog :: FilePath
+uuidLog = "uuid.log"
+
 {- The filename of the log file for a given key. -}
 logFile :: Key -> String
 logFile key = hashDirLower key ++ keyFile key ++ ".log"

UUID.hs

@@ -19,7 +19,6 @@ module UUID (
 	genUUID,
 	prettyPrintUUIDs,
 	describeUUID,
-	uuidLog,
 	uuidMap
 ) where
 
@@ -36,6 +35,7 @@ import Types.UUID
 import qualified Annex
 import qualified SysConfig
 import Config
+import Locations
 
 configkey :: String
 configkey = "annex.uuid"
@@ -116,7 +116,3 @@ uuidMap = do
 			if 1 < length (words l)
 				then (head $ words l, unwords $ drop 1 $ words l)
 				else ("", "")
-
-{- Filename of uuid.log. -}
-uuidLog :: FilePath
-uuidLog = "uuid.log"