mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

hlint

Browse source 
test suite still passes
This commit is contained in:
Joey Hess 2013-09-25 03:09:06 -04:00
parent 3192b059b5
commit b405295aee
30 changed files with 72 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/Status.hs
View file

@ -238,10 +238,10 @@ transfer_list :: Stat
transfer_list = stat "transfers in progress" $ nojson $ lift $ do
uuidmap <- Remote.remoteMap id
ts <- getTransfers
if null ts
then return "none"
else return $ multiLine $
map (\(t, i) -> line uuidmap t i) $ sort ts
return $ if null ts
then "none"
else multiLine $
map (uncurry $ line uuidmap) $ sort ts
where
line uuidmap t i = unwords
[ showLcDirection (transferDirection t) ++ "ing"
@ -340,7 +340,7 @@ emptyKeyData :: KeyData
emptyKeyData = KeyData 0 0 0 M.empty
emptyNumCopiesStats :: NumCopiesStats
emptyNumCopiesStats = NumCopiesStats $ M.empty
emptyNumCopiesStats = NumCopiesStats M.empty
foldKeys :: [Key] -> KeyData
foldKeys = foldl' (flip addKey) emptyKeyData