Merge pull request treeform#101 from treeform/guzba

add head request

src/puppy.nim

@@ -93,6 +93,13 @@ proc delete*(
 ): Response =
   fetch(newRequest(url, "DELETE", headers, timeout))
 
+proc head*(
+  url: string,
+  headers = emptyHttpHeaders(),
+  timeout: float32 = 60
+): Response =
+  fetch(newRequest(url, "HEAD", headers, timeout))
+
 proc fetch*(url: string, headers = emptyHttpHeaders()): string =
   ## Simple fetch that directly returns the GET response body.
   ## Raises an exception if anything goes wrong or if the response code

src/puppy/platforms/linux/platform.nim

@@ -65,7 +65,9 @@ proc internalFetch*(req: Request): Response {.raises: [PuppyError].} =
 
     discard curl.easy_setopt(OPT_HTTPHEADER, headerList)
 
-    if req.verb.toUpperAscii() == "POST" or req.body.len > 0:
+    if req.verb.toUpperAscii() == "HEAD":
+      discard curl.easy_setopt(OPT_NOBODY, 1)
+    elif req.verb.toUpperAscii() == "POST" or req.body.len > 0:
       discard curl.easy_setopt(OPT_POSTFIELDSIZE, req.body.len)
       discard curl.easy_setopt(OPT_POSTFIELDS, req.body.cstring)
 

tests/test.nim

@@ -57,6 +57,11 @@ block:
     )
   )
 
+block:
+  let response = head("https://www.google.com")
+  doAssert response.code == 200
+  doAssert response.body.len == 0
+
 when defined(windows):
   block:
     let httpsServer = startProcess(