From 488f14c6b463bcac8ed29df45e74557ef762837e Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 8 May 2023 10:09:48 -0400
Subject: [PATCH] hlint
---
src/Tahoe/Download.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 8afd0f4..b7747e6 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -264,7 +264,7 @@ downloadShare storageIndex shareNum (s : _) = do
shareBytes <- liftIO $ try (storageServerRead s storageIndex shareNum)
let massaged = first (ShareDownloadError . (displayException :: SomeException -> String)) shareBytes
print' "Downloaded it"
- pure $ (shareNum, LB.fromStrict <$> massaged)
+ pure (shareNum, LB.fromStrict <$> massaged)
data LookupError
= URIParseError StorageServerAnnouncement
--
GitLab