tweaks
This commit is contained in:
parent
16e7178f20
commit
abdacf58ed
8 changed files with 26 additions and 41 deletions
|
@ -1,6 +1,6 @@
|
|||
{- git-annex trust
|
||||
{- git-annex trust log
|
||||
-
|
||||
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
||||
- Copyright 2010-2012 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
@ -76,14 +76,12 @@ trustMap = do
|
|||
where
|
||||
configuredtrust r =
|
||||
maybe Nothing (\l -> Just (Types.Remote.uuid r, l)) <$>
|
||||
(convert <$> getTrustLevel (Types.Remote.repo r))
|
||||
convert :: Maybe String -> Maybe TrustLevel
|
||||
convert Nothing = Nothing
|
||||
convert (Just s)
|
||||
| s == "trusted" = Just Trusted
|
||||
| s == "untrusted" = Just UnTrusted
|
||||
| s == "semitrusted" = Just SemiTrusted
|
||||
| otherwise = Nothing
|
||||
maybe Nothing convert <$>
|
||||
getTrustLevel (Types.Remote.repo r)
|
||||
convert "trusted" = Just Trusted
|
||||
convert "untrusted" = Just UnTrusted
|
||||
convert "semitrusted" = Just SemiTrusted
|
||||
convert _ = Nothing
|
||||
|
||||
{- The trust.log used to only list trusted repos, without a field for the
|
||||
- trust status, which is why this defaults to Trusted. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue