             (save-excursion (goto-char end)
                             (1+ (current-column)))
             (buffer-substring-no-properties beg end)))))
+
+(defun intero-get-info-of (thing)
+  "Get info for the thing."
+  (replace-regexp-in-string
+   "\n$" ""
+   (intero-blocking-call
+    'backend
+    (format ":i %s" thing))))
 
 (defun intero-get-loc-at (beg end)
   "Get the location of the identifier denoted by BEG and END."

         (insert ty)
         (font-lock-fontify-buffer)
         (buffer-string))))))

(defun intero-goto-definition ()
  "Jump to the definition of the thing at point."

;; * Company mode completion ✓
;; * Go to definition ✓
;; * Type of selection ✓
;; * Info ✓
;; * REPL
;; * Find uses
;; * List all types in all expressions
