go go gadget hlint
This commit is contained in:
parent
9d26192350
commit
9f6b7935dd
21 changed files with 35 additions and 37 deletions
|
@ -28,7 +28,7 @@ import Utility.Path
|
|||
import Utility.Conditional
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "addurl" (paramRepeating $ paramUrl) seek
|
||||
command = [repoCommand "addurl" (paramRepeating paramUrl) seek
|
||||
"add urls to annex"]
|
||||
|
||||
seek :: [CommandSeek]
|
||||
|
|
|
@ -35,7 +35,7 @@ start ws = do
|
|||
when (null ws) needname
|
||||
|
||||
(u, c) <- findByName name
|
||||
let fullconfig = M.union config c
|
||||
let fullconfig = config `M.union` c
|
||||
t <- findType fullconfig
|
||||
|
||||
showStart "initremote" name
|
||||
|
|
|
@ -12,6 +12,7 @@ import Control.Applicative
|
|||
import System.Posix.Files
|
||||
import System.Directory
|
||||
import System.FilePath
|
||||
import Data.Maybe
|
||||
|
||||
import Command
|
||||
import qualified Annex
|
||||
|
@ -48,7 +49,7 @@ start (b, file) = isAnnexed file $ \(key, oldbackend) -> do
|
|||
{- Checks if a key is upgradable to a newer representation. -}
|
||||
{- Ideally, all keys have file size metadata. Old keys may not. -}
|
||||
upgradableKey :: Key -> Bool
|
||||
upgradableKey key = Types.Key.keySize key == Nothing
|
||||
upgradableKey key = isNothing $ Types.Key.keySize key
|
||||
|
||||
perform :: FilePath -> Key -> Backend Annex -> CommandPerform
|
||||
perform file oldkey newbackend = do
|
||||
|
|
|
@ -94,11 +94,11 @@ supported_remote_types = stat "supported remote types" $
|
|||
|
||||
local_annex_size :: Stat
|
||||
local_annex_size = stat "local annex size" $
|
||||
cachedKeysPresent >>= return . keySizeSum
|
||||
keySizeSum <$> cachedKeysPresent
|
||||
|
||||
total_annex_size :: Stat
|
||||
total_annex_size = stat "total annex size" $
|
||||
cachedKeysReferenced >>= return . keySizeSum
|
||||
keySizeSum <$> cachedKeysReferenced
|
||||
|
||||
local_annex_keys :: Stat
|
||||
local_annex_keys = stat "local annex keys" $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue