diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-21 13:14:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-21 13:14:31 -0400 |
| commit | 8a0d6d83f4e241f0cc18269e62e7289fec060e4e (patch) | |
| tree | 87aa6162e8f56c07fea5d780c8e558d699da6927 | |
| parent | 3138a49084dcf8227674e87de516194ad822b896 (diff) | |
remove unused and slightly indefensible Eq and Ord instances
| -rw-r--r-- | Types/KeySource.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/Types/KeySource.hs b/Types/KeySource.hs index 9d1fa173f..f4885767a 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 |