Skip to content

Commit b0f04d1

Browse files
committed
Use haskell-process-load-file, not -load-or-reload
- Rename haskell-process-reload - keybindings for -process-load-file & -process-reload - remove references to -process-load-or-reload - mark -process-load-or-reload obsolete closes #807
1 parent c8c8987 commit b0f04d1

File tree

2 files changed

+15
-5
lines changed

2 files changed

+15
-5
lines changed

haskell-commands.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -605,8 +605,8 @@ default (please follow GHCi-ng README available at URL
605605
606606
\\<haskell-interactive-mode-map>
607607
To make this function works sometimes you need to load the file in REPL
608-
first using command `haskell-process-load-or-reload' bound to
609-
\\[haskell-process-load-or-reload].
608+
first using command `haskell-process-load-file' bound to
609+
\\[haskell-process-load-file].
610610
611611
Optional argument INSERT-VALUE indicates that
612612
recieved type signature should be inserted (but only if nothing

haskell.el

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,8 @@
4141

4242
(defvar interactive-haskell-mode-map
4343
(let ((map (make-sparse-keymap)))
44-
(define-key map (kbd "C-c C-l") 'haskell-process-load-or-reload)
44+
(define-key map (kbd "C-c C-l") 'haskell-process-load-file)
45+
(define-key map (kbd "C-c C-r") 'haskell-process-reload)
4546
(define-key map (kbd "C-c C-t") 'haskell-process-do-type)
4647
(define-key map (kbd "C-c C-i") 'haskell-process-do-info)
4748
(define-key map (kbd "M-.") 'haskell-mode-jump-to-def-or-tag)
@@ -394,13 +395,19 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
394395
(current-buffer)))
395396

396397
;;;###autoload
397-
(defun haskell-process-reload-file ()
398+
(defun haskell-process-reload ()
398399
"Re-load the current buffer file."
399400
(interactive)
400401
(save-buffer)
401402
(haskell-interactive-mode-reset-error (haskell-session))
402403
(haskell-process-file-loadish "reload" t (current-buffer)))
403404

405+
;;;###autoload
406+
(defun haskell-process-reload-file () (haskell-process-reload))
407+
408+
(make-obsolete 'haskell-process-reload-file 'haskell-process-reload
409+
"2015-11-14")
410+
404411
;;;###autoload
405412
(defun haskell-process-load-or-reload (&optional toggle)
406413
"Load or reload. Universal argument toggles which."
@@ -411,7 +418,10 @@ If `haskell-process-load-or-reload-prompt' is nil, accept `default'."
411418
(if haskell-reload-p
412419
"Now running :reload."
413420
"Now running :load <buffer-filename>.")))
414-
(if haskell-reload-p (haskell-process-reload-file) (haskell-process-load-file))))
421+
(if haskell-reload-p (haskell-process-reload) (haskell-process-load-file))))
422+
423+
(make-obsolete 'haskell-process-load-or-reload 'haskell-process-load-file
424+
"2015-11-14")
415425

416426
;;;###autoload
417427
(defun haskell-process-cabal-build ()

0 commit comments

Comments
 (0)