added error handeling, for wrong http method

Author: rajkumardongre

src/http.f90

@@ -1,5 +1,5 @@
 module http
  use http_request, only : HTTP_DELETE, HTTP_GET, HTTP_HEAD, HTTP_PATCH, HTTP_POST, HTTP_POST 
  use http_response, only : response_type
- use http_server, only : request
+ use http_client, only : request
 end module http

src/http/http_server.f90 renamed to src/http/http_client.f90

@@ -1,12 +1,12 @@
-module http_server
+module http_client
  use iso_c_binding
  use curl
  use http_request, only : request_type
  use http_response, only : response_type
 
  implicit none
 
- ! http_server Type
+ ! http_client Type
  type :: client_type
  type(request_type) :: request
  type(c_ptr) :: curl_ptr
@@ -112,6 +112,9 @@ function client_set_method(this, response) result(status)
  case(6)
  status = curl_easy_setopt(this%curl_ptr, CURLOPT_CUSTOMREQUEST, 'PATCH' // c_null_char)
  response%method = 'PATCH'
+ case default
+ ! print *, "ERROR : method argument can be either HTTP_GET, HTTP_HEAD, HTTP_POST, HTTP_PUT, HTTP_DELETE, HTTP_PATCH"
+ error stop "Method argument can be either HTTP_GET, HTTP_HEAD, HTTP_POST, HTTP_PUT, HTTP_DELETE, HTTP_PATCH"
  end select
  end function client_set_method
 
@@ -145,4 +148,4 @@ function client_response_callback(ptr, size, nmemb, client_data) bind(c)
  end function client_response_callback
 
 
-end module http_server
+end module http_client