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

     do (let ((start 0)
              (text (flycheck-error-message msg)))
          (while (string-match extension-regex text start)
            (add-to-list 'intero-suggestions
                         (list :type 'add-extension
                               :extension (match-string 0 text)))

  (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."
