experimentally, removing all actual git committing

Idea is the user will commit when ready, just stage everything.

1 files changed, 2 insertions, 4 deletions

diff --git a/LocationLog.hs b/LocationLog.hs
index 4a5fe449c..785b3330d 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -80,14 +80,12 @@ instance Read LogLine where
 			undefined = ret $ LogLine (0) Undefined ""
 			ret v = [(v, "")]
 
-{- Log a change in the presence of a key's value in a repository,
- - and return the log filename. -}
-logChange :: Git.Repo -> Key -> UUID -> LogStatus -> IO FilePath
+{- Log a change in the presence of a key's value in a repository. -}
+logChange :: Git.Repo -> Key -> UUID -> LogStatus -> IO ()
 logChange repo key uuid status = do
 	log <- logNow status uuid
 	ls <- readLog logfile
 	writeLog logfile (compactLog $ log:ls)
-	return logfile
 	where
 		logfile = logFile repo key