From 4b51984fe7706335b54fab29fbf9006cced740cd Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 6 Apr 2013 10:43:57 -0600 Subject: [PATCH] use org-babel-result-cond in Haskell code blocks * lisp/ob-haskell.el (org-babel-execute:haskell): Use org-babel-result-cond in Haskell code blocks. --- lisp/ob-haskell.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el index a04963fa6..6f0fbcdf2 100644 --- a/lisp/ob-haskell.el +++ b/lisp/ob-haskell.el @@ -78,11 +78,12 @@ (cdr (member org-babel-haskell-eoe (reverse (mapcar #'org-babel-trim raw))))))) (org-babel-reassemble-table - (cond - ((equal result-type 'output) - (mapconcat #'identity (reverse (cdr results)) "\n")) - ((equal result-type 'value) - (org-babel-haskell-table-or-string (car results)))) + ((lambda (result) + (org-babel-result-cond (cdr (assoc :result-params params)) + result (org-babel-haskell-table-or-string result))) + (case result-type + ('output (mapconcat #'identity (reverse (cdr results)) "\n")) + ('value (car results)))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colname-names params))) (org-babel-pick-name (cdr (assoc :rowname-names params))