 This may update in-place the MSGS objects to hint that
 suggestions are available."
   (setq intero-suggestions nil)
-  (let ((extension-regex (regexp-opt (intero-extensions))))
+  (let ((extension-regex (regexp-opt (intero-extensions)))
+        (quoted-symbol-regex "[‘`‛]\\([^ ]+\\)['’]"))
     (cl-loop
      for msg in msgs
-     do (let ((start 0)
-              (text (flycheck-error-message msg))
+     do (let ((text (flycheck-error-message msg))
               (note nil))
           ;; Messages of this format:
           ;;

          ;;       You need DeriveFunctor to derive an instance for this class
          ;;       Try GeneralizedNewtypeDeriving for GHC's newtype-deriving extension
          ;;       In the newtype declaration for ‘X’
          (while (string-match extension-regex text start)
            (setq note t)
            (add-to-list 'intero-suggestions
                         (list :type 'add-extension
                               :extension (match-string 0 text)))
            (setq start (min (length text) (1+ (match-end 0)))))
          ;; Messages of this format:
          ;;
          ;; The import of ‘Control.Monad’ is redundant

                                      (plist-get suggestion :typo)
                                      "’ with ‘"
                                      (plist-get suggestion :replacement)
                                      "’")
                       :default nil))))
            intero-suggestions)))))
    (if (null to-apply)
        (message "No changes selected to apply.")
