diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 08f305d9ddf81ef2f36cfb20044af86fe156bb64..596a5282010a3e6ac74307693e68dec6778d3ae1 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 f96cff83f0fa5bec130bdd284c1addaaf121d87b..29a94f7564c1bd97b7b090a2955e2a5d7998e2da 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