go go gadget hlint

This commit is contained in:
Joey Hess 2011-09-20 23:24:48 -04:00
parent 9d26192350
commit 9f6b7935dd
21 changed files with 35 additions and 37 deletions

View file

@ -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]

View file

@ -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

View file

@ -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

View file

@ -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" $