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