 " intero-package-version))
       (redisplay)
       (cl-case (intero-call-process
-		"stack" nil (current-buffer) t "build"
-		(with-current-buffer buffer
-		  (let* ((cabal-file (intero-cabal-find-file))
-			 (package-name (intero-package-name cabal-file)))
-		    ;; For local development. Most users'll
-		    ;; never hit this behaviour.
-		    (if (string= package-name "intero")
-			"intero"
-		      (concat "intero-" intero-package-version))))
-		"ghc-paths" "syb")
+                "stack" nil (current-buffer) t "build"
+                (with-current-buffer buffer
+                  (let* ((cabal-file (intero-cabal-find-file))
+                         (package-name (intero-package-name cabal-file)))
+                    ;; For local development. Most users'll
+                    ;; never hit this behaviour.
+                    (if (string= package-name "intero")
+                        "intero"
+                      (concat "intero-" intero-package-version))))
+                "ghc-paths" "syb")
         (0
          (message "Installed successfully! Starting Intero in a moment ...")
          (bury-buffer buffer)

  (redisplay)
  (with-temp-buffer
    (if (= 0 (intero-call-process "stack" nil t nil "exec"
				  "--verbosity" "silent"
				  "--" "intero" "--version"))
        (progn
          (goto-char (point-min))
          ;; This skipping comes due to https://github.com/commercialhaskell/intero/pull/216/files

  "Is hoogle ready to be started?"
  (with-temp-buffer
    (cl-case (intero-call-process "stack" nil (current-buffer) t
                                  "hoogle" "--no-setup" "--verbosity" "silent")
      (0 t))))

(defun intero-hoogle-supported-p ()
  "Is the stack hoogle command supported?"
  (with-temp-buffer
    (cl-case (intero-call-process "stack" nil (current-buffer) t
                                  "hoogle" "--help")
      (0 t))))

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