reorg

2 files changed, 11 insertions, 8 deletions

diff --git a/Commands.hs b/Commands.hs
index 62376e4dd..2ff8d0d7b 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -221,14 +221,7 @@ describeCmd description = do
 	gitAdd log $ Just $ "description for UUID " ++ (show u)
 	liftIO $ putStrLn "description set"
 
-{- Updates the LocationLog when a key's presence changes. -}
-logStatus :: Key -> LogStatus -> Annex ()
-logStatus key status = do
-	g <- Annex.gitRepo
-	u <- getUUID g
-	f <- liftIO $ logChange g key u status
-	gitAdd f Nothing -- all logs are committed at end
-
+-- helpers
 inBackend file yes no = do
 	r <- Backend.lookupFile file
 	case (r) of
diff --git a/Core.hs b/Core.hs
index 1832b3513..70ec2eca0 100644
--- a/Core.hs
+++ b/Core.hs
@@ -10,6 +10,7 @@ import System.Path
 
 import Types
 import Locations
+import LocationLog
 import UUID
 import qualified GitRepo as Git
 import qualified Annex
@@ -94,3 +95,12 @@ calcGitLink file key = do
 		Nothing -> error $ "unable to normalize " ++ file
 	return $ (relPathDirToDir (parentDir absfile) (Git.workTree g)) ++
 		annexLocationRelative g key
+
+{- Updates the LocationLog when a key's presence changes. -}
+logStatus :: Key -> LogStatus -> Annex ()
+logStatus key status = do
+	g <- Annex.gitRepo
+	u <- getUUID g
+	f <- liftIO $ logChange g key u status
+	gitAdd f Nothing -- all logs are committed at end
+