server: comment tweaks

servant-server/test/Servant/Server/Internal/ConfigSpec.hs

@@ -45,10 +45,10 @@ spec = do
           (NamedConfig subConfig :: NamedConfig "sub" '[Char])
           :. EmptyConfig
         subConfig = 'b' :. EmptyConfig
-    it "allows to extract subconfigs" $ do
+    it "allows extracting subconfigs" $ do
       descendIntoNamedConfig (Proxy :: Proxy "sub") config `shouldBe` subConfig
 
-    it "allows to extract entries from subconfigs" $ do
+    it "allows extracting entries from subconfigs" $ do
       getConfigEntry (descendIntoNamedConfig (Proxy :: Proxy "sub") config :: Config '[Char])
         `shouldBe` 'b'
 

servant-server/test/Servant/Server/UsingConfigSpec.hs

@@ -121,5 +121,5 @@ spec4 :: Spec
 spec4 = do
   with (return namedConfigApp) $ do
     describe "WithNamedConfig" $ do
-      it "allows to descend into a subconfig for a given api" $ do
+      it "allows descending into a subconfig for a given api" $ do
         get "/" `shouldRespondWith` "\"descend\""

servant-server/test/Servant/Server/UsingConfigSpec/TestCombinators.hs

@@ -8,9 +8,12 @@
 {-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE UndecidableInstances #-}
 
--- | These are custom combinators for S.S.UsingConfigSpec. It's split up into
--- its own module to be able to test how exactly module import work when using
--- the config.
+-- | These are custom combinators for Servant.Server.UsingConfigSpec.
+--
+-- (For writing your own combinators you need to import Internal modules, for
+-- just *using* combinators that require a Config, you don't. This module is
+-- separate from Servant.Server.UsingConfigSpec to test that the module imports
+-- work out this way.)
 module Servant.Server.UsingConfigSpec.TestCombinators where
 
 import           GHC.TypeLits