mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused and slightly indefensible Eq and Ord instances

Browse source
This commit is contained in:
Joey Hess 2012-06-21 13:14:31 -04:00
parent 3138a49084
commit 8a0d6d83f4
1 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Types/KeySource.hs
View file

@ -7,8 +7,6 @@
module Types.KeySource where module Types.KeySource where
import Data.Ord
{- When content is in the process of being added to the annex, {- When content is in the process of being added to the annex,
- and a Key generated from it, this data type is used. - and a Key generated from it, this data type is used.
- -
@ -22,12 +20,3 @@ data KeySource = KeySource
, contentLocation :: FilePath , contentLocation :: FilePath
} }
deriving (Show) 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