File tree 1 file changed +7
-0
lines changed
1 file changed +7
-0
lines changed Original file line number Diff line number Diff line change 38
38
(defvar interactive-haskell-mode-map
39
39
(let ((map (make-sparse-keymap )))
40
40
(define-key map (kbd " C-c C-l" ) 'haskell-process-load-file )
41
+ (define-key map (kbd " C-c RET" ) 'haskell-load-and-run ) ; ; == C-c C-m
41
42
(define-key map (kbd " C-c C-r" ) 'haskell-process-reload )
42
43
(define-key map (kbd " C-c C-t" ) 'haskell-process-do-type )
43
44
(define-key map (kbd " C-c C-i" ) 'haskell-process-do-info )
@@ -397,6 +398,12 @@ Give optional NEXT-P parameter to override value of
397
398
nil
398
399
(current-buffer )))
399
400
401
+ (defun haskell-load-and-run ()
402
+ " Loads the current buffer and runs the main function."
403
+ (interactive )
404
+ (haskell-process-load-file )
405
+ (haskell-interactive-mode-run-expr " main" ))
406
+
400
407
;;;### autoload
401
408
(defun haskell-process-reload ()
402
409
" Re-load the current buffer file."
You can’t perform that action at this time.
0 commit comments