From d3f0106f2ed15a4e4abbc09cc3e985a27dfee662 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 22 Jun 2011 14:27:50 -0400 Subject: move LocationLog into Annex monad from IO It will need to run in Annex so it can use Branch --- Content.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Content.hs') diff --git a/Content.hs b/Content.hs index 57977ce34..ccd51a553 100644 --- a/Content.hs +++ b/Content.hs @@ -81,7 +81,7 @@ logStatusFor :: UUID -> Key -> LogStatus -> Annex () logStatusFor u key status = do g <- Annex.gitRepo unless (Git.repoIsLocalBare g) $ do - logfile <- liftIO $ logChange g key u status + logfile <- logChange g key u status rellogfile <- liftIO $ Git.workTreeFile g logfile AnnexQueue.add "add" [Param "--"] rellogfile -- cgit v1.2.3