From e95763a0f9effe0e0187d972aad087707f86bd8b Mon Sep 17 00:00:00 2001 From: Jean-Paul Calderone <exarkun@twistedmatrix.com> Date: Wed, 3 May 2023 16:40:10 -0400 Subject: [PATCH] minor cleanups --- src/Tahoe/Download.hs | 2 +- test/Spec.hs | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs index 08f305d..596a528 100644 --- a/src/Tahoe/Download.hs +++ b/src/Tahoe/Download.hs @@ -73,7 +73,7 @@ data DownloadError NoServers deriving (Eq, Ord, Show) -{- | An problem arose while attempting to discover the shares held on a +{- | A problem arose while attempting to discover the shares held on a particular server. -} data DiscoverError diff --git a/test/Spec.hs b/test/Spec.hs index f96cff8..29a94f7 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -207,7 +207,6 @@ tests = let numServers = Range.linear 1 (fromIntegral paramTotalShares + 1) serverIDs = Gen.text (Range.singleton 2) Gen.ascii serverIDs' <- forAll $ Gen.set numServers serverIDs - -- Constructor <$> arbitrary <*> arbitrary -- Choose a share distribution. Each element of the resulting -- list tells us how many shares to place on the next server, for -- GitLab