[elpa] externals/org 7f72807aea 2/2: lisp/ob-haskell.el: Fix org-babel-script-escape expects a string

[ELPA Syncer]

branch: externals/org
commit 7f72807aead9c350d85513702deb04722b65a25b
Author: Bruno BARBIER <brubar.cs@gmail.com>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/ob-haskell.el: Fix org-babel-script-escape expects a string
    
    * lisp/ob-haskell.el (org-babel-interpret-haskell): Don't call
    `org-babel-script-escape' when the result is nil.
---
 lisp/ob-haskell.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el
index 99e590bfb3..095286c79a 100644
--- a/lisp/ob-haskell.el
+++ b/lisp/ob-haskell.el
@@ -150,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))