From 3b48ca7d4380a47535980157c55f4cb619df45ff Mon Sep 17 00:00:00 2001
From: Matthias Fischmann <mf@zerobuzz.net>
Date: Fri, 6 Feb 2015 09:34:59 +0100
Subject: [PATCH] Cleanup.

---
 README.md                  | 2 +-
 src/Servant/Common/Req.hs  | 2 +-
 test/Servant/ClientSpec.hs | 1 -
 3 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 1315658a..7bcce2dc 100644
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@
 
 ![servant](https://raw.githubusercontent.com/haskell-servant/servant/master/servant.png)
 
-This library lets you derive automatically Haskell functions that let you query each endpoint of a *servant* webservice.
+This library lets you automatically derive Haskell functions that let you query each endpoint of a *servant* webservice.
 
 ## Example
 
diff --git a/src/Servant/Common/Req.hs b/src/Servant/Common/Req.hs
index 71e2447a..da85c02a 100644
--- a/src/Servant/Common/Req.hs
+++ b/src/Servant/Common/Req.hs
@@ -85,7 +85,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
         setheaders r = r { requestHeaders = Prelude.map toProperHeader (headers req) }
 
         toProperHeader (name, val) =
-          (fromString name, encodeUtf8 val) 
+          (fromString name, encodeUtf8 val)
 
 
 -- * performing requests
diff --git a/test/Servant/ClientSpec.hs b/test/Servant/ClientSpec.hs
index b93c0209..429a2fe4 100644
--- a/test/Servant/ClientSpec.hs
+++ b/test/Servant/ClientSpec.hs
@@ -255,4 +255,3 @@ pathGen = fmap NonEmpty path
     filter (not . (`elem` "?%[]/#;")) $
     filter isPrint $
     map chr [0..127]
-