diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 8afd0f4f15587906ca2bc894de4119a83c54f2cf..b7747e6a94f0f74ac2578f9c305baf7da36166ce 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