                                    0)
                                (or (plist-get gt :line)
                                    0))))))
+        ;; # Changes that do not increase/decrease line numbers
+        ;;
+        ;; Update in-place suggestions
+        (cl-loop
+         for suggestion in sorted
+         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))))))
+        ;; # Changes that do increase/decrease line numbers
+        ;;
+        ;; Remove import lines from the file. May remove more than one
+        ;; line per import.
         (cl-loop
          for suggestion in sorted
          do (cl-case (plist-get suggestion :type)

                                (or (when (search-forward-regexp "\n[^ \t]" nil t 1)
                                      (1- (point)))
                                    (line-end-position)))))))
        (cl-loop
         for suggestion in sorted
         do (cl-case (plist-get suggestion :type)

                 (goto-char (point-min))
                 (insert "{-# LANGUAGE "
                         (plist-get suggestion :extension)
                         " #-}\n")))))))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
