   (interactive)
   (let* ((old-options
           (list
-            (list :key "load-all"
-                  :title "Load all modules"
-                  :default (not (buffer-local-value 'intero-repl-no-load backend-buffer)))
-            (list :key "build-first"
-                  :title "Build project first"
-                  :default (not (buffer-local-value 'intero-repl-no-build backend-buffer)))))
+           (list :key "load-all"
+                 :title "Load all modules"
+                 :default (not (buffer-local-value 'intero-repl-no-load backend-buffer)))
+           (list :key "build-first"
+                 :title "Build project first"
+                 :default (not (buffer-local-value 'intero-repl-no-build backend-buffer)))))
          (new-options (intero-multiswitch "Start REPL with options:" old-options)))
     (with-current-buffer backend-buffer
       (setq intero-repl-no-load (not (member "load-all" new-options)))

         (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 (intero-ident-at-point))))
    (message
     "%s"
     (with-temp-buffer
       (when (fboundp 'haskell-mode)
         (haskell-mode))
       (insert info)
       (font-lock-fontify-buffer)
       (buffer-string)))))

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

                               (list (list state
                                           (or callback #'ignore)
                                           cmd)))))
               (when debug-on-error
                 (message "[Intero] -> %s" cmd))
               (process-send-string (intero-process worker)
                                    (concat cmd "\n")))
      (error "Intero process is not running. Run M-x intero-restart to start it."))))
