From 7bc2a2e850c3b7f3ca1dbfaab9dfd4ccda08fcba Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 7 Jun 2023 15:57:53 -0400
Subject: [PATCH] lints
---
src/Tahoe/Directory/Internal/Capability.hs | 15 +++++----------
1 file changed, 5 insertions(+), 10 deletions(-)
diff --git a/src/Tahoe/Directory/Internal/Capability.hs b/src/Tahoe/Directory/Internal/Capability.hs
index 756a367..289eb59 100644
--- a/src/Tahoe/Directory/Internal/Capability.hs
+++ b/src/Tahoe/Directory/Internal/Capability.hs
@@ -46,8 +46,7 @@ pVerifyCHK :: Parser (DirectoryCapability CHK.Verifier)
pVerifyCHK = do
s <- getInput
setInput $ T.replace "URI:DIR2-CHK-Verifier:" "URI:CHK-Verifier:" s
- v <- CHK.pVerifier
- pure $ DirectoryCapability v
+ DirectoryCapability <$> CHK.pVerifier
{- | Parse a CHK directory reader capability.
@@ -58,8 +57,7 @@ pReadCHK :: Parser (DirectoryCapability CHK.Reader)
pReadCHK = do
s <- getInput
setInput $ T.replace "URI:DIR2-CHK:" "URI:CHK:" s
- v <- CHK.pReader
- pure $ DirectoryCapability v
+ DirectoryCapability <$> CHK.pReader
{- | Parse an SDMF directory verifier capability. As is the case for the other
directory capability parsers, the implementation is cheesy.
@@ -68,8 +66,7 @@ pVerifySDMF :: Parser (DirectoryCapability SDMF.Verifier)
pVerifySDMF = do
s <- getInput
setInput $ T.replace "URI:DIR2-Verifier:" "URI:SSK-Verifier:" s
- v <- SDMF.pVerifier
- pure $ DirectoryCapability v
+ DirectoryCapability SDMF.pVerifier
{- | Parse an SDMF directory reader capability. As is the case for the other
directory capability parsers, the implementation is cheesy.
@@ -78,8 +75,7 @@ pReadSDMF :: Parser (DirectoryCapability SDMF.Reader)
pReadSDMF = do
s <- getInput
setInput $ T.replace "URI:DIR2-RO:" "URI:SSK-RO:" s
- v <- SDMF.pReader
- pure $ DirectoryCapability v
+ DirectoryCapability <$> SDMF.pReader
{- | Parse an SDMF directory writer capability. As is the case for the other
directory capability parsers, the implementation is cheesy.
@@ -88,5 +84,4 @@ pWriteSDMF :: Parser (DirectoryCapability SDMF.Writer)
pWriteSDMF = do
s <- getInput
setInput $ T.replace "URI:DIR2:" "URI:SSK:" s
- v <- SDMF.pWriter
- pure $ DirectoryCapability v
+ DirectoryCapability <$> SDMF.pWriter
--
GitLab