                (flycheck-mode)
                (add-to-list (make-local-variable 'company-backends) 'company-intero)
                (company-mode)
-	       (set (make-local-variable 'eldoc-documentation-function) 'eldoc-intero))
+               (set (make-local-variable 'eldoc-documentation-function) 'eldoc-intero))
       (message "Intero mode disabled."))))
 
 (define-key intero-mode-map (kbd "C-c C-t") 'intero-type-at)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Auto actions

(defun intero-apply-suggestions ()
  "Prompt and apply the suggestions."

               (save-excursion
                 (goto-char (point-min))
                 (forward-line (1- (plist-get suggestion :line)))
                 (search-forward-regexp "[[:alnum:][:space:]\n]*=>")
                 (backward-sexp 2)
                 (let ((start (1+ (point))))
                   (forward-sexp)
                   (let* ((end (1- (point)))
                          (constraints (intero-parse-comma-list
                                        (buffer-substring start end)))
                          (nonredundant
                             (loop for r in (plist-get suggestion :redundancies)
                                   with nonredundant = constraints
                                   do (setq nonredundant (delete r nonredundant))
                                   finally return nonredundant)))
                     (goto-char start)
                     (delete-char (- end start))
                     (insert (string-join nonredundant ", "))))))))

        ;; Add a type signature to a top-level binding.
        (cl-loop
