correctness

1 files changed, 4 insertions, 2 deletions

diff --git a/UUID.hs b/UUID.hs
index a0e078482..0b795b8c1 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -23,14 +23,16 @@ genUUID :: IO String
 genUUID = do
 	pOpen ReadFromPipe "uuid" ["-m"] $ \h -> hGetLine h
 
+{- Looks up a repo's UUID -}
 getUUID :: GitRepo -> String
 getUUID repo = gitConfig repo "annex.uuid" ""
 
 {- Make sure that the repo has an annex.uuid setting. -}
-prepUUID :: GitRepo -> IO ()
+prepUUID :: GitRepo -> IO GitRepo
 prepUUID repo =
 	if ("" == getUUID repo)
 		then do
 			uuid <- genUUID
 			gitRun repo ["config", configkey, uuid]
-		else return ()
+			gitConfigRead repo -- return new repo with updated config
+		else return repo