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

            (save-excursion (goto-char end)
                            (1+ (current-column)))
            (buffer-substring-no-properties beg end)))))

(defun intero-get-loc-at (beg end)
  "Get the location of the identifier denoted by BEG and END."

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

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

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