diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 2 | ||||
| -rw-r--r-- | Command/List.hs | 16 |
2 files changed, 9 insertions, 9 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index f27f18e57..1a10a15b4 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -282,7 +282,7 @@ verifyDirectMode key file = do - the key's metadata, if available. - - Not checked in direct mode, because files can be changed directly. - -} + -} checkKeySize :: Key -> Annex Bool checkKeySize key = ifM isDirect ( return True diff --git a/Command/List.hs b/Command/List.hs index d038d6deb..e4d911d97 100644 --- a/Command/List.hs +++ b/Command/List.hs @@ -71,15 +71,15 @@ type Present = Bool header :: [(RemoteName, TrustLevel)] -> String header remotes = unlines (zipWith formatheader [0..] remotes) ++ pipes (length remotes) where - formatheader n (remotename, trustlevel) = pipes n ++ remotename ++ trust trustlevel - pipes = flip replicate '|' - trust UnTrusted = " (untrusted)" - trust _ = "" + formatheader n (remotename, trustlevel) = pipes n ++ remotename ++ trust trustlevel + pipes = flip replicate '|' + trust UnTrusted = " (untrusted)" + trust _ = "" format :: [(TrustLevel, Present)] -> FilePath -> String format remotes file = thereMap ++ " " ++ file where - thereMap = concatMap there remotes - there (UnTrusted, True) = "x" - there (_, True) = "X" - there (_, False) = "_" + thereMap = concatMap there remotes + there (UnTrusted, True) = "x" + there (_, True) = "X" + there (_, False) = "_" |