tests: style of test names

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

@@ -46,11 +46,11 @@ spec :: Spec
 spec = do
   describe "accessing config entries from custom combinators" $ do
     with (return oneEntryApp) $ do
-      it "allows to retrieve a ConfigEntry" $ do
+      it "allows retrieving a ConfigEntry" $ do
         get "/" `shouldRespondWith` "\"configEntry\""
 
     with (return oneEntryTwiceApp) $ do
-      it "allows to retrieve the same ConfigEntry twice" $ do
+      it "allows retrieving the same ConfigEntry twice" $ do
         get "/foo" `shouldRespondWith` "\"configEntryTwice\""
         get "/bar" `shouldRespondWith` "\"configEntryTwice\""
 
@@ -100,6 +100,6 @@ subConfigApp = serve (Proxy :: Proxy SubConfigAPI) config $
 spec3 :: Spec
 spec3 = do
   with (return subConfigApp) $ do
-    it "allows to retrieve different ConfigEntries for the same combinator" $ do
+    it "allows retrieving different ConfigEntries for the same combinator" $ do
       get "/foo" `shouldRespondWith` "\"firstEntry\""
       get "/bar" `shouldRespondWith` "\"secondEntry\""

servant-server/test/Servant/ServerSpec.hs

@@ -220,7 +220,7 @@ qpServer = queryParamServer :<|> qpNames :<|> qpCapitalize
 queryParamSpec :: Spec
 queryParamSpec = do
   describe "Servant.API.QueryParam" $ do
-      it "allows to retrieve simple GET parameters" $
+      it "allows retrieving simple GET parameters" $
         (flip runSession) (serve queryParamApi EmptyConfig qpServer) $ do
           let params1 = "?name=bob"
           response1 <- Network.Wai.Test.request defaultRequest{
@@ -232,7 +232,7 @@ queryParamSpec = do
               name = "bob"
              }
 
-      it "allows to retrieve lists in GET parameters" $
+      it "allows retrieving lists in GET parameters" $
         (flip runSession) (serve queryParamApi EmptyConfig qpServer) $ do
           let params2 = "?names[]=bob&names[]=john"
           response2 <- Network.Wai.Test.request defaultRequest{
@@ -246,7 +246,7 @@ queryParamSpec = do
              }
 
 
-      it "allows to retrieve value-less GET parameters" $
+      it "allows retrieving value-less GET parameters" $
         (flip runSession) (serve queryParamApi EmptyConfig qpServer) $ do
           let params3 = "?capitalize"
           response3 <- Network.Wai.Test.request defaultRequest{