From 76ba2d003072da67bd9b0fb5b84bf7a268a956ee Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 17 Oct 2010 12:08:59 -0400
Subject: [PATCH] reorg

---
 Commands.hs |  9 +--------
 Core.hs     | 10 ++++++++++
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/Commands.hs b/Commands.hs
index 62376e4dde..2ff8d0d7b3 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 1832b35138..70ec2eca01 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
+