From 1caae680dd7bda7d8041361d5e51cafc34a0ccba Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 12 Jun 2023 12:41:15 -0400
Subject: [PATCH] lint
---
src/Tahoe/SDMF/Internal/Capability.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Tahoe/SDMF/Internal/Capability.hs b/src/Tahoe/SDMF/Internal/Capability.hs
index cf6bf7c..a0a1943 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
--
GitLab