diff options
Diffstat (limited to 'lisp/org/ob-haskell.el')
| -rw-r--r-- | lisp/org/ob-haskell.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org/ob-haskell.el b/lisp/org/ob-haskell.el index 45f70fa878e..095286c79aa 100644 --- a/lisp/org/ob-haskell.el +++ b/lisp/org/ob-haskell.el @@ -5,7 +5,7 @@ ;; Author: Eric Schulte ;; Maintainer: Lawrence Bottorff <borgauf@gmail.com> ;; Keywords: literate programming, reproducible research -;; Homepage: https://orgmode.org +;; URL: https://orgmode.org ;; This file is part of GNU Emacs. @@ -39,6 +39,10 @@ ;; - (optionally) lhs2tex: https://people.cs.uu.nl/andres/lhs2tex/ ;;; Code: + +(require 'org-macs) +(org-assert-version) + (require 'ob) (require 'org-macs) (require 'comint) @@ -132,7 +136,7 @@ a parameter, such as \"ghc -v\"." (comint-preoutput-filter-functions (cons 'ansi-color-filter-apply comint-preoutput-filter-functions)) (raw (org-babel-comint-with-output - (session org-babel-haskell-eoe t full-body) + (session org-babel-haskell-eoe nil full-body) (insert (org-trim full-body)) (comint-send-input nil t) (insert org-babel-haskell-eoe) @@ -146,7 +150,7 @@ a parameter, such as \"ghc -v\"." (`output (mapconcat #'identity (reverse results) "\n")) (`value (car results))))) (org-babel-result-cond (cdr (assq :result-params params)) - result (org-babel-script-escape result))) + result (when result (org-babel-script-escape result)))) (org-babel-pick-name (cdr (assq :colname-names params)) (cdr (assq :colname-names params))) (org-babel-pick-name (cdr (assq :rowname-names params)) |