From e9c3270b559b68a7001f30642a1d68a651d1e889 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sat, 13 Nov 2010 12:35:26 +0100 Subject: [PATCH] define Ord instead of Eq since we use maps from Data.Map --- Text/Pandoc/Definition.hs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Text/Pandoc/Definition.hs b/Text/Pandoc/Definition.hs index 3b8c7e6..1f6703c 100644 --- a/Text/Pandoc/Definition.hs +++ b/Text/Pandoc/Definition.hs @@ -136,11 +136,11 @@ data Citation = Citation { citationId :: String , citationNoteNum :: Int , citationHash :: Int } - deriving (Show, Ord, Read, Typeable, Data) + deriving (Show, Eq, Read, Typeable, Data) -instance Eq Citation where - (==) (Citation _ _ _ _ _ ha) - (Citation _ _ _ _ _ hb) = ha == hb +instance Ord Citation where + compare (Citation _ _ _ _ _ ha) + (Citation _ _ _ _ _ hb) = compare ha hb data CitationMode = AuthorInText | SuppressAuthor | NormalCitation deriving (Show, Eq, Ord, Read, Typeable, Data)