comments

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