From 8a0d6d83f4e241f0cc18269e62e7289fec060e4e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 21 Jun 2012 13:14:31 -0400
Subject: [PATCH] remove unused and slightly indefensible Eq and Ord instances

---
 Types/KeySource.hs | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/Types/KeySource.hs b/Types/KeySource.hs
index 9d1fa173f5..f4885767a5 100644
--- a/Types/KeySource.hs
+++ b/Types/KeySource.hs
@@ -7,8 +7,6 @@
 
 module Types.KeySource where
 
-import Data.Ord
-
 {- When content is in the process of being added to the annex,
  - and a Key generated from it, this data type is used. 
  -
@@ -22,12 +20,3 @@ data KeySource = KeySource
 	, contentLocation :: FilePath
 	}
 	deriving (Show)
-
-{- KeySources are assumed to be equal when the same filename is associated
- - with the key. The contentLocation can be a random temp file.
- -}
-instance Eq KeySource where
-	x == y = keyFilename x == keyFilename y
-
-instance Ord KeySource where
-	compare = comparing keyFilename