                                         (plist-get suggestion :ident)
                                         (plist-get suggestion :module))
                          :default t))
+                  (add-missing-fields
+                   (list :key suggestion
+                         :default t
+                         :title
+                         (format "Add missing fields to record: %s"
+                                 (mapconcat (lambda (ident)
+                                              (concat "‘" ident "’"))
+                                            (plist-get suggestion :fields)
+                                            ", "))))
                   (redundant-import-item
                    (list :key suggestion
                          :title

                   (intero-make-temp-file
                    "intero" nil
                    (concat "-STAGING." (if (buffer-file-name)
                                    (file-name-extension (buffer-file-name))
                                  "hs"))))))
      (with-temp-file fname
        (insert contents))
      fname)))

                   (forward-line (1- (plist-get suggestion :line)))
                   (move-to-column (- (plist-get suggestion :column) 1))
                   (delete-char (length (plist-get suggestion :typo)))
                   (insert (plist-get suggestion :replacement))))
                (add-missing-fields
                 (save-excursion
                   (goto-char (point-min))
                   (forward-line (1- (plist-get suggestion :line)))
                   (move-to-column (- (plist-get suggestion :column) 1))
                   (search-forward "{")
                   (let ((first t))
                     (mapc (lambda (field)
                             (insert (if first "" ", ") field " = _" )
                             (setq first nil))
                           (plist-get suggestion :fields)))))))
          ;; # Changes that do increase/decrease line numbers
          ;;
          ;; Remove redundant constraints
