diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-25 03:09:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-25 03:09:06 -0400 |
| commit | d9c5d32c34885cac67c44c633c5351461902d166 (patch) | |
| tree | 2628093b15b5564a33364cf67d54d87ef0f2474e /Command/Status.hs | |
| parent | 2270913743982ab33c68d17c8ed68326e1711f95 (diff) | |
hlint
test suite still passes
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 8872747fb..8e41a96a9 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -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 |