diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 00:51:07 -0400 |
| commit | 264bd9ebe37855d4005022df057da13ec8080afb (patch) | |
| tree | f32f13646ece29c8f6336b8680cb07dd55187be5 /Logs/Trust.hs | |
| parent | d9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (diff) | |
where indenting
Diffstat (limited to 'Logs/Trust.hs')
| -rw-r--r-- | Logs/Trust.hs | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/Logs/Trust.hs b/Logs/Trust.hs index f61966b9e..e5322e04e 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -87,11 +87,10 @@ trustMapLoad = do let m = M.union overrides $ M.union configured logged Annex.changeState $ \s -> s { Annex.trustmap = Just m } return m - where - configuredtrust r = - maybe Nothing (\l -> Just (Types.Remote.uuid r, l)) <$> - maybe Nothing readTrustLevel - <$> getTrustLevel (Types.Remote.repo r) + where + configuredtrust r = maybe Nothing (\l -> Just (Types.Remote.uuid r, l)) + <$> maybe Nothing readTrustLevel + <$> getTrustLevel (Types.Remote.repo r) {- Does not include forcetrust or git config values, just those from the - log file. -} @@ -103,11 +102,11 @@ trustMapRaw = simpleMap . parseLog (Just . parseTrustLog) - trust status, which is why this defaults to Trusted. -} parseTrustLog :: String -> TrustLevel parseTrustLog s = maybe Trusted parse $ headMaybe $ words s - where - parse "1" = Trusted - parse "0" = UnTrusted - parse "X" = DeadTrusted - parse _ = SemiTrusted + where + parse "1" = Trusted + parse "0" = UnTrusted + parse "X" = DeadTrusted + parse _ = SemiTrusted showTrustLog :: TrustLevel -> String showTrustLog Trusted = "1" |