haskell-interactive-ext.el

haskell-interactive-ext.el

(require 'haskell-interactive-mode)

;; add to .ghci
;; :set +m

(defun haskell-interactive-my-eval ()
  "Evaluate the current line or region in the Haskell REPL."
  (interactive)
  (if (use-region-p)
      (progn
        (kill-ring-save (region-beginning) (region-end))
        (pulse-momentary-highlight-region (region-beginning) (region-end))
        (haskell-interactive-switch)
        (yank)
        (haskell-interactive-mode-return)
        (haskell-interactive-switch-back))
    (progn
      (kill-ring-save (line-beginning-position) (line-end-position))
      (pulse-momentary-highlight-region (line-beginning-position) (line-end-position))
      (haskell-interactive-switch)
      (yank)
      (haskell-interactive-mode-return)
      (haskell-interactive-switch-back))))

(define-key haskell-mode-map (kbd "S-<return>") 'haskell-interactive-my-eval)