|
@@ -84,7 +84,7 @@
|
|
|
(output (mapconcat #'identity (reverse (cdr results)) "\n"))
|
|
|
(value (car results)))))
|
|
|
(org-babel-result-cond (cdr (assoc :result-params params))
|
|
|
- result (org-babel-haskell-table-or-string result)))
|
|
|
+ result (org-babel-script-escape result)))
|
|
|
(org-babel-pick-name (cdr (assoc :colname-names params))
|
|
|
(cdr (assoc :colname-names params)))
|
|
|
(org-babel-pick-name (cdr (assoc :rowname-names params))
|
|
@@ -133,12 +133,6 @@ then create one. Return the initialized session."
|
|
|
(org-babel-haskell-var-to-haskell (cdr pair))))
|
|
|
(mapcar #'cdr (org-babel-get-header params :var))))
|
|
|
|
|
|
-(defun org-babel-haskell-table-or-string (results)
|
|
|
- "Convert RESULTS to an Emacs-lisp table or string.
|
|
|
-If RESULTS look like a table, then convert them into an
|
|
|
-Emacs-lisp table, otherwise return the results as a string."
|
|
|
- (org-babel-script-escape results))
|
|
|
-
|
|
|
(defun org-babel-haskell-var-to-haskell (var)
|
|
|
"Convert an elisp value VAR into a haskell variable.
|
|
|
The elisp VAR is converted to a string of haskell source code
|