Re: Bug: Babel: haskell :results options output and value work contrary to docs [7.7 (release_7.7.107.g7a82)]

[Eric Schulte <schulte.eric@gmail.com>]

András Major <andras.g.major@gmail.com> writes:

> Here's another one: In a haskell code, the :results options value and
> output both work erroneously.  "value" returns the output, "output"
> returns nothing into the :results block.
>
> Example code:
>
> #+begin_src haskell :results value
>   putStrLn "hello"
> #+end_src
>
> #+results:
> : hello
>
> #+begin_src haskell :results output
>   putStrLn "hello"
> #+end_src
>
> #+results:
>
> #+begin_src haskell :results value
>   import System.IO
>   openFile "doesNotExist.ppt" ReadMode
> #+end_src
>
> #+results:
> : Prelude System.IO> *** Exception: doesNotExist.ppt: openFile: does
> not exist (No such file or directory)
>
> #+begin_src haskell :results output
>   import System.IO
>   openFile "doesNotExist.ppt" ReadMode
> #+end_src
>
> #+results:
>
>
> This just isn't right, is it?
>

No, the current behavior is not right.

These language specific files are developed as needed, and I don't
believe that ob-hsakell has seen much use up to this point.  If anyone
would submit a patch to add correct value/output behavior to ob-haskell
I would be very happy to apply it.

Thanks -- Eric

>
>   András
>
>
>
> Emacs  : GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0)
>  of 2010-12-11 on raven, modified by Debian
> Package: Org-mode version 7.7 (release_7.7.107.g7a82)
>
> current state:
> ==============
> (setq
>  org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
>  org-speed-command-hook '(org-speed-command-default-hook
> 			  org-babel-speed-command-hook)
>  org-babel-load-languages '((asymptote . t) (ditaa . t) (dot . t) (gnuplot . t)
> 			    (haskell . t) (latex . t) (octave . t) (R . t)
> 			    (ruby . t) (scheme . t) (sh . t))
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-after-todo-state-change-hook '(org-clock-out-if-current)
>  org-babel-tangle-lang-exts '(("ruby" . "rb") ("latex" . "tex")
> 			      ("haskell" . "hs") ("asymptote" . "asy")
> 			      ("emacs-lisp" . "el"))
>  org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
>  org-export-latex-format-toc-function 'org-export-latex-format-toc-default
>  org-tab-first-hook '(org-hide-block-toggle-maybe
> 		      org-src-native-tab-command-maybe
> 		      org-babel-hide-result-toggle-maybe)
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> 		     org-src-mode-configure-edit-buffer)
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-export-first-hook '(org-beamer-initialize-open-trackers)
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
> 		  org-cycle-show-empty-lines
> 		  org-optimize-window-after-visibility-change)
>  org-export-preprocess-before-normalizing-links-hook
> '(org-remove-file-link-modifiers)
>  org-mode-hook '(#[nil "\300\301\302\303\304$\207"
> 		   [org-add-hook change-major-mode-hook org-show-block-all
> 		    append local]
> 		   5]
> 		 #[nil "\300\301\302\303\304$\207"
> 		   [org-add-hook change-major-mode-hook
> 		    org-babel-show-result-all append local]
> 		   5]
> 		 org-babel-result-hide-spec org-babel-hide-all-hashes)
>  org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
> 			  org-babel-execute-safely-maybe)
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-export-interblocks '((lob org-babel-exp-lob-one-liners)
> 			  (src org-babel-exp-inline-src-blocks))
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>  org-occur-hook '(org-first-headline-recenter)
>  org-from-is-user-regexp nil
>  org-export-preprocess-before-selecting-backend-code-hook
> '(org-beamer-select-beamer-code)
>  org-confirm-babel-evaluate nil
>  org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
> 			       org-beamer-auto-fragile-frames
> 			       org-beamer-place-default-actions-for-lists)
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-export-blocks '((src org-babel-exp-src-block nil)
> 		     (comment org-export-blocks-format-comment t)
> 		     (ditaa org-export-blocks-format-ditaa nil)
> 		     (dot org-export-blocks-format-dot nil))
>  )
>

-- 
Eric Schulte
http://cs.unm.edu/~eschulte/