From faf0e1121cd0ed461e63b1192f36fba7feabb105 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 12 May 2023 15:38:41 -0400
Subject: [PATCH] comments
---
src/Tahoe/SDMF/Internal/Capability.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/Tahoe/SDMF/Internal/Capability.hs b/src/Tahoe/SDMF/Internal/Capability.hs
index 52201b4..56d6ed1 100644
--- a/src/Tahoe/SDMF/Internal/Capability.hs
+++ b/src/Tahoe/SDMF/Internal/Capability.hs
@@ -6,12 +6,14 @@ import Prelude hiding (Read)
import qualified Data.ByteString as B
import Tahoe.SDMF.Internal.Keys (Read, Write)
+-- | A read capability for an SDMF object.
data Reader = Reader
{ readerReadKey :: Read
, readerVerificationKeyHash :: B.ByteString
}
deriving (Show)
+-- | A write capability for an SDMF object.
data Writer = Writer
{ writerWriteKey :: Write
, writerReader :: Reader
--
GitLab