Error

test/Servant/ClientSpec.hs:286:12:
    Couldn't match type ‘Method
                         -> EitherT
                              ServantError
                              IO
                              (Int, ByteString, MediaType, [HTTP.Header], C.Response ByteString)’
                  with ‘EitherT ServantError IO Person’
    Expected type: EitherT ServantError IO Person
                   :<|> (EitherT ServantError IO ()
                         :<|> ((String -> EitherT ServantError IO Person)
                               :<|> (Person -> EitherT ServantError IO Person)))
      Actual type: Servant.Client.Client FailApi
    In the expression: client failApi baseUrl
    In a pattern binding:
      (getGet :<|> getDelete :<|> getCapture :<|> getBody)
        = client failApi baseUrl