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

         do (cl-case (plist-get suggestion :type)
              (fix-typo
               (save-excursion
                 (goto-line (plist-get suggestion :line))
                 (move-to-column (- (plist-get suggestion :column) 1))
                 (delete-char (length (plist-get suggestion :typo)))
                 (insert (plist-get suggestion :replacement))))))

  (with-current-buffer (intero-buffer 'backend)
    (or intero-ghc-version
        (setq intero-ghc-version
              (with-temp-buffer
                (cl-case (save-excursion
                           (call-process "stack" nil (current-buffer) t "ghc" "--" "--numeric-version"))
                  (0
                   (buffer-substring (line-beginning-position) (line-end-position)))
                  (1 nil)))))))

(defun intero-get-targets ()
  "Get all available targets."
