                  (goto-char (point-min))
                  (insert "{-# LANGUAGE "
                          (plist-get suggestion :extension)
-                         " #-}\n")))))
-        (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))))))))))
+                         " #-}\n")))))))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                                   0)
                               (or (plist-get gt :line)
                                   0))))))
        (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)))))))
        ;; Add extensions to the top of the file
        (cl-loop
         for suggestion in sorted
         do (cl-case (plist-get suggestion :type)
