git.iko.soy/servant
on master help sign in
Trim trailing whitespace
commit27facba0e8657e9b95bcbc37255567fc27a4246e authorOleg Grenrus <oleg.grenrus@iki.fi> dateSun 14 May 2017, 19:26 (9 years ago) parent4eabab7
3 files changed+5−5
compare with master
unifiedsplit
servant-client/src/Servant/Common/Req.hs+2−2 servant-client/test/Servant/ClientSpec.hs+2−2 servant/src/Servant/Utils/Links.hs+1−1
servant-client/src/Servant/Common/Req.hs+2−2
@@ -224,7 +224,7 @@ runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)
224224runClientM cm env = runExceptT $ (flip runReaderT env) $ runClientM' cm
225225
226226
227−performRequest :: Method -> Req
227+performRequest :: Method -> Req
228228 -> ClientM ( Int, ByteString, MediaType
229229 , [HTTP.Header], Response ByteString)
230230performRequest reqMethod req = do
@@ -253,7 +253,7 @@ performRequest reqMethod req = do
253253 throwError $ FailureResponse status ct body
254254 return (status_code, body, ct, hdrs, response)
255255
256−performRequestCT :: MimeUnrender ct result => Proxy ct -> Method -> Req
256+performRequestCT :: MimeUnrender ct result => Proxy ct -> Method -> Req
257257 -> ClientM ([HTTP.Header], result)
258258performRequestCT ct reqMethod req = do
259259 let acceptCTS = contentTypes ct
servant-client/test/Servant/ClientSpec.hs+2−2
@@ -122,9 +122,9 @@ getBody :: Person -> SCR.ClientM Person
122122getQueryParam :: Maybe String -> SCR.ClientM Person
123123getQueryParams :: [String] -> SCR.ClientM [Person]
124124getQueryFlag :: Bool -> SCR.ClientM Bool
125−getRawSuccess :: HTTP.Method
125+getRawSuccess :: HTTP.Method
126126 -> SCR.ClientM (Int, BS.ByteString, MediaType, [HTTP.Header], C.Response BS.ByteString)
127−getRawFailure :: HTTP.Method
127+getRawFailure :: HTTP.Method
128128 -> SCR.ClientM (Int, BS.ByteString, MediaType, [HTTP.Header], C.Response BS.ByteString)
129129getMultiple :: String -> Maybe Int -> Bool -> [(String, [Rational])]
130130 -> SCR.ClientM (String, Maybe Int, Bool, [(String, [Rational])])
servant/src/Servant/Utils/Links.hs+1−1
@@ -255,7 +255,7 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where
255255-- Verb (terminal) instances
256256instance HasLink (Verb m s ct a) where
257257 type MkLink (Verb m s ct a) = Link
258− toLink _ = id
258+ toLink _ = id
259259
260260instance HasLink Raw where
261261 type MkLink Raw = Link