haskell-load: add haskell-goto-first-error

Author: da-x

haskell-load.el

@@ -346,6 +346,12 @@ correspondingly-named overlay properties of OVL."
 	(t
 	 (message "No further notes from Haskell compiler."))))
 
+(defun haskell-goto-first-error ()
+  (interactive)
+  (haskell-goto-error-overlay
+   (first-overlay-in-if 'haskell-check-overlay-p
+                        (buffer-end 0) (buffer-end 1))))
+
 (defun haskell-goto-prev-error ()
   (interactive)
   (haskell-goto-error-overlay

haskell.el

@@ -54,6 +54,7 @@
     (define-key map [?\C-c ?\C-z] 'haskell-interactive-switch)
     (define-key map (kbd "M-n") 'haskell-goto-next-error)
     (define-key map (kbd "M-p") 'haskell-goto-prev-error)
+    (define-key map (kbd "C-c M-p") 'haskell-goto-first-error)
     map)
   "Keymap for using haskell-interactive-mode.")