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

                                     :default t))))
            intero-suggestions)))))
    (if (null to-apply)
        (message "No changes to apply.")
      (cl-loop
       for suggestion in to-apply
       do (cl-case (plist-get suggestion :type)

     do (let ((start 0)
              (text (flycheck-error-message msg)))
          (while (string-match extension-regex text start)
            (setf (flycheck-error-message msg)
                  (concat text
                          "\n\n"
                          (propertize "(Hit `C-c C-r' in the Haskell buffer to apply suggestions)"
                                      'face 'font-lock-warning)))
            (add-to-list 'intero-suggestions
                         (list :type 'add-extension
                               :extension (match-string 0 text)))
