summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-05-28 11:56:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-05-28 11:56:48 -0400
commitc38f8264355ebf99c2e1594279120d4fbdb0efc1 (patch)
tree7d2ac105d21eab255288348a04cb462528d1597b /Command
parent7db690bdc2d434f9bbe36a2d3bdac7202eb355f0 (diff)
Data.Tuple.swap not available with ghc 6.12.3
Diffstat (limited to 'Command')
-rw-r--r--Command/Status.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index 43a948443..dd518416c 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -11,7 +11,6 @@ import Control.Monad.State
import Data.Maybe
import System.IO
import Data.List
-import Data.Tuple
import qualified Data.Map as M
import qualified Annex
@@ -134,6 +133,7 @@ backend_usage = stat "backend usage" $
splits :: [Key] -> [(String, Integer)]
splits ks = M.toList $ M.fromListWith (+) $ map tcount ks
tcount k = (keyBackendName k, 1)
+ swap (a, b) = (b, a)
pp c [] = c
pp c ((n, b):xs) = "\n\t" ++ b ++ ": " ++ show n ++ pp c xs