From c38f8264355ebf99c2e1594279120d4fbdb0efc1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 28 May 2011 11:56:48 -0400
Subject: Data.Tuple.swap not available with ghc 6.12.3

---
 Command/Status.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Command/Status.hs')

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
 
-- 
cgit v1.2.3