Merge branch 'ord-instances' into 'main'

Add `Ord` instances for capability types

See merge request !15

.gitignore

+cabal.project.local
+.direnv
+.pre-commit-config.yaml
+*~

src/Tahoe/SDMF/Internal/Capability.hs

@@ -53,6 +53,9 @@ data Verifier = Verifier
     }
     deriving (Eq, Show)
 
+instance Ord Verifier where
+    a <= b = verifierStorageIndex a <= verifierStorageIndex b
+
 instance ConfidentialShowable Verifier where
     confidentiallyShow = dangerRealShow . SDMFVerifier
 
@@ -63,6 +66,9 @@ data Reader = Reader
     }
     deriving (Eq, Show)
 
+instance Ord Reader where
+    a <= b = readerVerifier a <= readerVerifier b
+
 instance ConfidentialShowable Reader where
     confidentiallyShow = dangerRealShow . SDMFReader
 
@@ -73,6 +79,9 @@ data Writer = Writer
     }
     deriving (Eq, Show)
 
+instance Ord Writer where
+    a <= b = writerReader a <= writerReader b
+
 instance ConfidentialShowable Writer where
     confidentiallyShow = dangerRealShow . SDMFWriter
 

src/Tahoe/SDMF/Internal/Keys.hs

@@ -86,7 +86,7 @@ instance Binary Read where
         let (CryptoPassed unRead) = cipherInit readKeyBytes
         pure Read{..}
 
-newtype StorageIndex = StorageIndex {unStorageIndex :: B.ByteString} deriving newtype (Eq)
+newtype StorageIndex = StorageIndex {unStorageIndex :: B.ByteString} deriving newtype (Eq, Ord)
 
 instance Show StorageIndex where
     show (StorageIndex si) =

tahoe-ssk.cabal

@@ -21,7 +21,7 @@ name:               tahoe-ssk
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.2.0.0
+version:            0.2.1.0
 
 -- A short (one-line) description of the package.
 synopsis: