diff --git a/src/Tahoe/SDMF/Internal/Capability.hs b/src/Tahoe/SDMF/Internal/Capability.hs
index cf6bf7c30a251376cb7d2c1f20a6394b756f0622..a0a194347d4f42dd944eef0d580c5f6f9d31dd63 100644
--- a/src/Tahoe/SDMF/Internal/Capability.hs
+++ b/src/Tahoe/SDMF/Internal/Capability.hs
@@ -54,7 +54,7 @@ data Verifier = Verifier
     deriving (Eq, Show)
 
 instance Ord Verifier where
-    a <= b = (verifierStorageIndex a <= verifierStorageIndex b)
+    a <= b = verifierStorageIndex a <= verifierStorageIndex b
 
 instance ConfidentialShowable Verifier where
     confidentiallyShow = dangerRealShow . SDMFVerifier
@@ -67,7 +67,7 @@ data Reader = Reader
     deriving (Eq, Show)
 
 instance Ord Reader where
-    a <= b = (readerVerifier a <= readerVerifier b)
+    a <= b = readerVerifier a <= readerVerifier b
 
 instance ConfidentialShowable Reader where
     confidentiallyShow = dangerRealShow . SDMFReader
@@ -80,7 +80,7 @@ data Writer = Writer
     deriving (Eq, Show)
 
 instance Ord Writer where
-    a <= b = (writerReader a <= writerReader b)
+    a <= b = writerReader a <= writerReader b
 
 instance ConfidentialShowable Writer where
     confidentiallyShow = dangerRealShow . SDMFWriter