Try to fix each error only once
This commit is contained in:
		
							parent
							
								
									7277d4d6c3
								
							
						
					
					
						commit
						c78274f7f6
					
				| @ -367,7 +367,7 @@ nil            does not display errors/warnings. | |||||||
| (defun ghc-check-insert-from-warning () | (defun ghc-check-insert-from-warning () | ||||||
|   (interactive) |   (interactive) | ||||||
|   (let ((ret t)) |   (let ((ret t)) | ||||||
|     (dolist (data (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) (ghc-check-overlay-at (point))) ret) |     (dolist (data (delete-dups (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) (ghc-check-overlay-at (point)))) ret) | ||||||
|       (save-excursion |       (save-excursion | ||||||
| 	(cond | 	(cond | ||||||
| 	 ((string-match "Inferred type: \\|no type signature:" data) | 	 ((string-match "Inferred type: \\|no type signature:" data) | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Alejandro Serrano
						Alejandro Serrano