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

fix Ord instance for MetaValue to work like Eq instance

Browse source
This commit is contained in:
Joey Hess 2014-02-12 22:01:24 -04:00
parent 4789d9910a
commit 4d205b0fb9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Types/MetaData.hs
View file

@ -53,11 +53,13 @@ newtype MetaField = MetaField String
deriving (Show, Eq, Ord) deriving (Show, Eq, Ord)
data MetaValue = MetaValue CurrentlySet String data MetaValue = MetaValue CurrentlySet String
deriving (Show, Ord) deriving (Show)
{- Metadata values are compared equal whether currently set or not. -} {- Metadata values compare and order the same whether currently set or not. -}
instance Eq MetaValue where instance Eq MetaValue where
MetaValue _ a == MetaValue _ b = a == b MetaValue _ a == MetaValue _ b = a == b
instance Ord MetaValue where
compare (MetaValue _ x) (MetaValue _ y) = compare x y
{- MetaData is serialized to a format like: {- MetaData is serialized to a format like:
- -