urbit-hob

commit 8cda5bf7cf889e990ab29e4c49d294029930026a
parent 218140fc3eda00777d03513d7be9f556796790ac
Author: Jared Tobin <jared@jtobin.io>
Date:   Mon,  6 Jan 2020 05:00:52 +0800

co: add Ord instances to Patp, Patq

Diffstat:
M
lib/Urbit/Ob/Co.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Urbit/Ob/Co.hs b/lib/Urbit/Ob/Co.hs
@@ -55,7 +55,7 @@ import qualified Urbit.Ob.Ob as Ob (fein, fynd)
 --
 newtype Patp = Patp {
     unPatp :: BS.ByteString
-  } deriving (Eq, Generic)
+  } deriving (Eq, Ord, Generic)
 
 instance Show Patp where
   show = T.unpack . renderPatp
@@ -70,7 +70,7 @@ instance Show Patp where
 --
 newtype Patq = Patq {
     unPatq :: BS.ByteString
-  } deriving (Eq, Generic)
+  } deriving (Eq, Ord, Generic)
 
 instance Show Patq where
   show = T.unpack . renderPatq