          (insert ty)
          (font-lock-fontify-buffer)
          (buffer-string))))))
+
+(defun intero-info (insert)
+  "Get the info of the thing at point."
+  (interactive "P")
+  (let ((info (intero-get-info-of (haskell-ident-at-point))))
+    (message
+     "%s"
+     (with-temp-buffer
+       (haskell-mode)
+       (insert info)
+       (font-lock-fontify-buffer)
+       (buffer-string)))))
 
 (defun intero-goto-definition ()
   "Jump to the definition of the thing at point."

      (message "Intero mode disabled."))))

(define-key intero-mode-map (kbd "C-c C-t") 'intero-type-at)
(define-key intero-mode-map (kbd "M-.") 'intero-goto-definition)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

            (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."
