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