diff options
author | 2012-12-13 00:24:19 -0400 | |
---|---|---|
committer | 2012-12-13 00:24:19 -0400 | |
commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Annex/UUID.hs | |
parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) |
finished where indentation changes
Diffstat (limited to 'Annex/UUID.hs')
-rw-r--r-- | Annex/UUID.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Annex/UUID.hs b/Annex/UUID.hs index 16c25c0ab..b20d94125 100644 --- a/Annex/UUID.hs +++ b/Annex/UUID.hs @@ -34,10 +34,10 @@ configkey = annexConfig "uuid" - so use the command line tool. -} genUUID :: IO UUID genUUID = gen . lines <$> readProcess command params - where - gen [] = error $ "no output from " ++ command - gen (l:_) = toUUID l - (command:params) = words SysConfig.uuid + where + gen [] = error $ "no output from " ++ command + gen (l:_) = toUUID l + (command:params) = words SysConfig.uuid {- Get current repository's UUID. -} getUUID :: Annex UUID @@ -54,19 +54,19 @@ getRepoUUID r = do updatecache u return u else return c - where - updatecache u = do - g <- gitRepo - when (g /= r) $ storeUUID cachekey u - cachekey = remoteConfig r "uuid" + where + updatecache u = do + g <- gitRepo + when (g /= r) $ storeUUID cachekey u + cachekey = remoteConfig r "uuid" removeRepoUUID :: Annex () removeRepoUUID = unsetConfig configkey getUncachedUUID :: Git.Repo -> UUID getUncachedUUID = toUUID . Git.Config.get key "" - where - (ConfigKey key) = configkey + where + (ConfigKey key) = configkey {- Make sure that the repo has an annex.uuid setting. -} prepUUID :: Annex () |