add a UUID type

Should have done this a long time ago.
This commit is contained in:
Joey Hess 2011-11-07 14:46:01 -04:00
parent b08f7c428b
commit 63a292324d
18 changed files with 67 additions and 55 deletions

View file

@ -60,7 +60,7 @@ gen r u _ = do
r' <- case (cheap, notignored, u) of
(_, False, _) -> return r
(True, _, _) -> tryGitConfigRead r
(False, _, "") -> tryGitConfigRead r
(False, _, NoUUID) -> tryGitConfigRead r
_ -> return r
u' <- getRepoUUID r'