From e241c5198ad414c867b70fbdf8c561a8b2b16911 Mon Sep 17 00:00:00 2001
From: aaron levin <aaron.levin@soundcloud.com>
Date: Mon, 21 Dec 2015 00:08:39 +0100
Subject: [PATCH] Fix indentation in client specs

---
 servant-client/test/Servant/ClientSpec.hs | 66 +++++++++++------------
 1 file changed, 33 insertions(+), 33 deletions(-)

diff --git a/servant-client/test/Servant/ClientSpec.hs b/servant-client/test/Servant/ClientSpec.hs
index 345cbb08..bf7ebcd4 100644
--- a/servant-client/test/Servant/ClientSpec.hs
+++ b/servant-client/test/Servant/ClientSpec.hs
@@ -174,39 +174,39 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do
     it "Servant.API.Get" $ \(_, baseUrl) -> do
       let getGet = getNth (Proxy :: Proxy 0) $ client api baseUrl manager
 
-  manager <- C.newManager C.defaultManagerSettings
-  let getGet :: ExceptT ServantError IO Person
-      getDeleteEmpty :: ExceptT ServantError IO ()
-      getCapture :: String -> ExceptT ServantError IO Person
-      getBody :: Person -> ExceptT ServantError IO Person
-      getQueryParam :: Maybe String -> ExceptT ServantError IO Person
-      getQueryParams :: [String] -> ExceptT ServantError IO [Person]
-      getQueryFlag :: Bool -> ExceptT ServantError IO Bool
-      getMatrixParam :: Maybe String -> ExceptT ServantError IO Person
-      getMatrixParams :: [String] -> ExceptT ServantError IO [Person]
-      getMatrixFlag :: Bool -> ExceptT ServantError IO Bool
-      getRawSuccess :: Method -> ExceptT ServantError IO (Int, ByteString, MediaType, [HTTP.Header], C.Response ByteString)
-      getRawFailure :: Method -> ExceptT ServantError IO (Int, ByteString, MediaType, [HTTP.Header], C.Response ByteString)
-      getMultiple :: String -> Maybe Int -> Bool -> [(String, [Rational])] -> ExceptT ServantError IO (String, Maybe Int, Bool, [(String, [Rational])])
-      getRespHeaders :: ExceptT ServantError IO (Headers TestHeaders Bool)
-      getDeleteContentType :: ExceptT ServantError IO ()
-      (     getGet
-       :<|> getDeleteEmpty
-       :<|> getCapture
-       :<|> getBody
-       :<|> getQueryParam
-       :<|> getQueryParams
-       :<|> getQueryFlag
-       :<|> getMatrixParam
-       :<|> getMatrixParams
-       :<|> getMatrixFlag
-       :<|> getRawSuccess
-       :<|> getRawFailure
-       :<|> getMultiple
-       :<|> getRespHeaders
-       :<|> getDeleteContentType
-       :<|> getPrivatePerson)
-         = client api baseUrl manager
+    manager <- C.newManager C.defaultManagerSettings
+    let getGet :: ExceptT ServantError IO Person
+        getDeleteEmpty :: ExceptT ServantError IO ()
+        getCapture :: String -> ExceptT ServantError IO Person
+        getBody :: Person -> ExceptT ServantError IO Person
+        getQueryParam :: Maybe String -> ExceptT ServantError IO Person
+        getQueryParams :: [String] -> ExceptT ServantError IO [Person]
+        getQueryFlag :: Bool -> ExceptT ServantError IO Bool
+        getMatrixParam :: Maybe String -> ExceptT ServantError IO Person
+        getMatrixParams :: [String] -> ExceptT ServantError IO [Person]
+        getMatrixFlag :: Bool -> ExceptT ServantError IO Bool
+        getRawSuccess :: Method -> ExceptT ServantError IO (Int, ByteString, MediaType, [HTTP.Header], C.Response ByteString)
+        getRawFailure :: Method -> ExceptT ServantError IO (Int, ByteString, MediaType, [HTTP.Header], C.Response ByteString)
+        getMultiple :: String -> Maybe Int -> Bool -> [(String, [Rational])] -> ExceptT ServantError IO (String, Maybe Int, Bool, [(String, [Rational])])
+        getRespHeaders :: ExceptT ServantError IO (Headers TestHeaders Bool)
+        getDeleteContentType :: ExceptT ServantError IO ()
+        (     getGet
+        :<|> getDeleteEmpty
+        :<|> getCapture
+        :<|> getBody
+        :<|> getQueryParam
+        :<|> getQueryParams
+        :<|> getQueryFlag
+        :<|> getMatrixParam
+        :<|> getMatrixParams
+        :<|> getMatrixFlag
+        :<|> getRawSuccess
+        :<|> getRawFailure
+        :<|> getMultiple
+        :<|> getRespHeaders
+        :<|> getDeleteContentType
+        :<|> getPrivatePerson)
+            = client api baseUrl manager
 
   hspec $ do
     it "Servant.API.Get" $ do