From 64ede85539277d676f4b9bed88599ce0b9150f23 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Fri, 23 Feb 2018 13:57:09 +0300
Subject: Add Ord instances for Node and Triple

---
 Redland/Util.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Redland/Util.hs b/Redland/Util.hs
index 9d3744d..2bcd947 100644
--- a/Redland/Util.hs
+++ b/Redland/Util.hs
@@ -12,7 +12,6 @@ module Redland.Util where
 
 import Foreign
 import Control.Monad
-import Data.Maybe
 
 import Redland.LowLevel
 import Redland.MidLevel
@@ -52,7 +51,7 @@ withStatements world model t f =
 data Node = BlankNode String
           | LiteralNode String
           | ResourceNode String
-          deriving (Eq, Show)
+          deriving (Ord, Eq, Show)
 
 -- | A conversion function.
 redlandNodeToNode :: ForeignPtr RedlandNode -> IO Node
@@ -139,7 +138,7 @@ queryResultsToList qr = do
 data Triple = Triple { subject :: Maybe Node
                      , predicate :: Maybe Node
                      , object :: Maybe Node
-                     } deriving (Eq, Show)
+                     } deriving (Ord, Eq, Show)
 
 -- | A conversion function.
 statementToTriple :: ForeignPtr RedlandStatement
-- 
cgit v1.2.3