diff --git a/src/Tahoe/Directory/Internal/Capability.hs b/src/Tahoe/Directory/Internal/Capability.hs index 289eb59b3e40d31ac4fe5ce5463937cc779406ff..09f69bb130dfb1f3bf628371693e7ade0674b5b2 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.