                              (line-end-position))))))))
 
 (defun intero-hoogle-url (buffer query)
-  "Make the HTTP URL for QUERY from the hoogle server running in
-BUFFER."
+  "Via hoogle server BUFFER make the HTTP URL for QUERY."
   (format "http://127.0.0.1:%d/?hoogle=%s&mode=json"
           (buffer-local-value 'intero-hoogle-port buffer)
           (url-encode-url query)))

;; Interactive commands

(defun intero-toggle-debug ()
  (interactive)
  (setq intero-debug (not intero-debug))
  (message "Intero debugging is: %s" (if intero-debug "ON" "OFF")))

;; Hoogle

(defun intero-hoogle-blocking-query (query)
  "Make a request of QUERY using the local hoogle server.
If running, otherwise returns nil.

It is the responsibility of the caller to make sure the server is
running; the user might not want to start the server
