From 297c04002500db9f11351944275796c22bdb1c81 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 7 Jun 2023 16:04:44 -0400
Subject: [PATCH] fix incorrect hlint fix :(

---
 src/Tahoe/Directory/Internal/Capability.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Tahoe/Directory/Internal/Capability.hs b/src/Tahoe/Directory/Internal/Capability.hs
index 289eb59..09f69bb 100644
--- a/src/Tahoe/Directory/Internal/Capability.hs
+++ b/src/Tahoe/Directory/Internal/Capability.hs
@@ -66,7 +66,7 @@ pVerifySDMF :: Parser (DirectoryCapability SDMF.Verifier)
 pVerifySDMF = do
     s <- getInput
     setInput $ T.replace "URI:DIR2-Verifier:" "URI:SSK-Verifier:" s
-    DirectoryCapability SDMF.pVerifier
+    DirectoryCapability <$> SDMF.pVerifier
 
 {- | Parse an SDMF directory reader capability.  As is the case for the other
  directory capability parsers, the implementation is cheesy.
-- 
GitLab