         (setq intero-extensions
               (split-string
                (shell-command-to-string
-                "stack exec -- ghc --supported-extensions"))))))
+                "stack exec --verbosity silent -- ghc --supported-extensions"))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Auto actions

                          (plist-get state :checker)
                          (current-buffer)
                          string)))
               (run-with-timer 0
                               nil
                               'intero-call-in-buffer
                               (current-buffer)
                               'intero-collect-compiler-messages
                               msgs)
               (funcall (plist-get state :cont)
                        'finished
                        (cl-remove-if (lambda (msg)

  (setq intero-lighter
        (if (null intero-suggestions)
            " Intero"
          (format " Intero:%d" (length intero-suggestions)))))

(defun intero-extensions ()
  "Get extensions for the current project's GHC."
